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.icrospace  Medical  Research  Laboratory,  Wright-Patterson 
.CO  Base,  Ohio,  by  personnel  of  that  organization. 

Lc.icion  o£  these  methods  and  techniques  resulted  in  time 
i. .  :  ;  s  of  coordinate  positions,  relative  to  the  test  seat,  of 
:  r; •  .  ^metric  points  during  the  impact  and  response  periods. 

coordinate  system  defined  for  each  of  the  experimental 
•-  ;  t  ;:rograms  is  described.  Coordinate  positions  of  reference 

ana  camera  locations  in  the  various  coordinate  systems  are 
.  -'iinonted.  The  techniques  used  to  locate  and  mark  anthropometric 
iits  on  the  test  subjects  are  described. 
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:  Pit.- i-.i  CP.  erisn  s  r  tiu  ’  a  t  icns  ,  rearw.ira  acc-aler.’ti  ci.  oi  the  test 
.ci'ticie  frert.  a  stanaina  positici.  by  the  liori tcnt,a^  l.npaise  .accel¬ 
erator,  anc  deceleraticp.  of  the  test  veiricle  troir.  rot’ward  r;,c.t.-c:. 
by  the  Hydraulic  Oecelerator ,  and  from  the  upper  torso  la.'tr.icti t  n 
■environment  simulated  cn  the  Body  Positioni.ng  ;<e  r  rac  t  .r  :;n  .heoic..- . 
benpLanar  motion  resulted  from  heal  on  crash  s  i  mu...  tj  -  ,  0  r.s  1.  .r. 
which  the  subjects  were  tusymmet  r  ica  ly  rest  ra :  p.e'i ,  u;u.  1:  r  ; 
on  crash  simulations. 

Prior  to  each  experim.ental  test  orccram.  tin.-  pno tome t :  :  ■ 
data  requirements  were  specified.  These  specif ica tiens  deter 
mined  the  number  of  cameras  to  be  used  and  their  locations  anc. 
orientations.  The  specifications  also  determ.inec  the  nunc  =  -  . 

moving  points  to  be  tracked  and  id-,;p.  ti  fied  the.m.  loierT-- 
points  in  th.e  field  of  viev;  o:  ...■■.c'.  .  .. 

cials  and  their  coordinates  were  :  re-;  .,.-u. 

The  recorded  test  data  were  pi-o  ]oc  t'-'c, ,  1 
a  viewing  screen  equipped  with  nurim-ontal  and  viiit. .  ■..  .  . 
the  relative  positions  of  which  were  digital.^y  onoo-,  o  v 
shaft  angle  encoders  attached  to  the  shafts  of  ‘ 'w-  . 

knobs.  The  encoders  excited  up-down  coant-.  rs  v  r.  .c  ■' 
horizontal  and  vertic.al  dis placerv.en t  fr::-  ■  !:c  '-.ut,!  ■■  :  ■  , 

jected  im.age  of  each  of  the  ;;:r;.nt.5  re,:.;,  ;  m 

then  computer  processr-(i  to  time  f.  :  p  v;  ■  f  t-,-.  :  • 

sional  coordinate  positions  .in  ;  '  ....m  •  ■  ■ 

acceleration  were  dorivec. . 


The  techniques  and  procedures  applied  to  reduce  data  from 
each  of  che  major  test  programs  are  described  in  this  report. 

The  coordinate  solutions  wore  adequate  to  use  as  comparisons 
with  predicted  trajectories  of  the  various  points.  With  the  ex¬ 
ception  of  the  Injury  Protection  Comparison  study  and  the  elbow 
trajectory  data  from  the  -G^  (6,  8,  and  lOG)  study,  errors  in 
solution  were  less  than  one-eighth  inch.  Large  errors  in  x- 
component  of  displacement  were  evident  in  the  data  from  the  Whole 
Body  Restraint-Lateral  test  program.  The  indications  are  that  the 
angle  between  the  optical  axes  of  the  cameras  (11  and  12)  was  too 
small . 

Derived  velocity  and  acceleration  data  are  not  sufficiently 
accurate  to  use  for  predictions.  Improved  filtering  methods  and 
greater  accuracy  in  coordinate  solutions  would  be  required  to 
improve  the  utility  value  of  these  data. 
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SECTION  1 
INTRODUCTION 


The  high  injury  and  fatality  rates  associated  with  vehicular 
crashes  and  emergency  escape  from  aircraft  dictate  the  need  for 
determination  of  impact  exposure  limits  and  the  evaluation  of  the 
effectiveness  of  various  protection  system  configurations  'ir.u  pro¬ 
tection  principles  and  techniques.  In  response  to  these  needs,  the 
Biomechanical  Protection  Branch  of  the  Air  Force  Aerosj^ace  Medical 
Research  Laboratory  (A.MRL/BBP)  has  rigorously  conducted  experimental 
test  programs,  developing  in  the  laboratory  si.mulaticns  of  the 
environments  to  which  crewmen  might  be  exposed.  Data  collected  from 
these  experimental  programs  provide  the  bases  for  verification 
and/ or  improvement  of  predictive  biodynamic  models. 

This  report  describes  and  documents  the  photometric  analysis 
procedures  and  processes  developed  and  applied  by  the  University  of 
Dayton  Research  Institute  (UDRI)  during  the  period  1  September  1976 
thru  30  April  1979,  in  support  of  AMRL/BBP  research  and  development 
programs . 

The  photometric  work  accomplished  is  summarized  as  follows: 

•  DOT  6  Year  Old  Child  Comparison.  The  reduction  of  photo¬ 
metric  recordings  of  points  on  the  heads  of  dummies  and 
baboons  to  time  histories  of  three  dimensional  coordinate 
positions  was  completed. 

•  Restraint  System  Dynamics.  Preparation  of  test  subjects 
by  application  and  documentation  of  tracking  fiducials 
was  accomplished.  Reduction  of  film  data  to  two  dimen¬ 
sional  time  histories  of  displacement,  velocity,  and 
acceleration  of  six  points  on  the  heads  and  extremities  of 
nine  human  subjects  and  one  manikin  during  ninety-one 
tests  was  completed. 

•  Whole  Body  Restraint-Lateral.  Preparation  of  subjects  by 
application  and  documentation  of  tracking  fiducials  was 
accomplished  prior  to  each  test.  Reduction  of  film  data 
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to  time  histories  of  three  dimensional  displacements, 
velocities,  and  accelerations  of  nine  points  on  the  heads 
and  torsos  of  ten  human  subjects  and  three  manikins 
acquire.',  during  fifty  three  of  the  tests  was  completed. 

•  Upper  Torso  Retraction.  Preparation  of  subjects  by 
application  of  fiducials  and  measurement  of  variable 
breadths  was  accomplished  prior  to  each  test.  Film  data 
collected  during  two  tests  were  reduced  to  two  dimensional 
time  histories  of  displacements,  velocities,  an  1  accelera¬ 
tions  of  nine  points  on  the  subject  and  one  point  on  the 
retraction  piston. 

•  Impact  Protection  Comparison,  -50  Accelerator. 
Preparation  of  subjects  by  application  and  .iocumentation 
of  fiducials  was  accomplished  prior  to  each  of  eighteen 
tests.  Data  were  digitized  from  seventeen  of  t.he  tests 
and  were  reduced  to  time  histories  of  displacements, 
velocities,  and  accelerations  of  six  points  on  each  of 
the  subjects. 

•  Impact  Protection  Comparison,  -50  Decelerator. 
Preparation  of  subjects  by  application  and  documentation 
of  fiducials  was  accomplished  prior  to  each  of  twelve 
tests.  Film  data  from  eleven  tests  were  digitized  and 
reduced  to  time  histories  of  displacements,  velocities, 
and  accelerations  of  six  points  on  each  of  the  subjects. 

•  F-111  Generic  Study,  ~G^.  Preparation  of  subjects  by 
application  of  fiducials  and  measurement  of  their  relative 
locations  was  accomplished  prior  to  each  test.  A  process 
was  developed  to  plot  pictograuns  of  the  head  and  e.xtremi- 
ties  of  the  subject  and  the  pro]ection  of  the  harness 
geometry  in  the  X-Z  plane.  The  process  was  demonstrated 
with  data  digitized  from  film(s)  ol  testis). 
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Lxposure  Ol  ,  .1  :  _  ^ 

+G  dccelerJition  t,“.ii\’iron.'"er.  '.s  iL  ,■ 

—  z 

points  on  these  sobn-.-'ts .  Nr,:]-  - 

the  extrerTiities  is  'ienonst  r  ^ :  eo ,  1 1  is  r.  e 

tude  as  to  warrant  t.hr-_e  dirieiisicn-ii  anaiys  .  -i .  :  ■  .  •  . 

point,  or  points,  were  iesori.be.i  by  L.ii.i  i.  ■  :i 

recorded  on  a  sinyle  motion  pictu-  e  camc_o-i  ;  •  :  .  ,  :y 

Horizontal  Impact  Facility  Photorr.etr  lo  A:.. A  .c 

The  test  programs  from  which  data  were  redaeea  usi;..;  ,o 

were : 

•  Restraint  System  Dynamics 

•  Upper  Torso  Retraction 

•  Impact  Protectiin  Comriai  ison s ,  -  30  ■. 

The  original  version  of  iilFPL'  was  oev«.; ;  e d!ir.;'.i:  an 
earlier  effort  and  was  documented  in  .AMkL- r?-'’c-94  .  L.'ie  yioces. 
has  since  been  modified  by  the  aKiditior.  or  three  sobrmtines , 
rotate,  mean  1,  and  mean  2,  which  were  developed  to  improve  acc.. 
racy  by  minimizing  the  effects  of  camera  vibration  and  pi.n 
registration  variations,  and  to  provide  statist  ica  .  imiicat  i  ,  ::s 
reading  accuracy  and  smoothing  efrects.  'The  cnrrord,  vorsicn  or. 
this  program  is  described  in  the  following  section.-.:  ano  .iistino 
the  program  source  statements  is  presented  in  y.otennrx  A. 


2.1  THEORY 

When  a  camera  photographs  a  sce'n-j ,  the  f ;  At!  ;  ..-O',.  •.  ■.•s  e; 
image  of  an  infinite  number  of  rays  of  light  eraaii..tt  i.r.a  i  ron  .c. 
infinite  number  of  points  in  tiie  sc'ene.  if  tt.e  n  :.s  ‘hr  .;  ;r.  wr. : 

the  rays  pass  is  such  that  it  introciuces  no  ..iis'e'j'  .  r,  ,  ‘in;,  r 

image  of  a  given  observed  point  will  strL-ie  tin.-  i  i  ; m  ;  .i 

r  ,  from  the  center  of  the  ..iiage  or  the  e;.‘  ;  r-  s--e:..  mi..  ' 

relationship  to  the  distance,  i^,  ir'.yr  ’. ’no  .i  r  ;  ^  i  .  o-;  :  •  •  in. 

observed  point  in  the-  plani-  n'rim.ai  '  'in  ei  t  m  ; 

t.inco  ,  3  ,  iron  the  r-o..:.  1 1  pi  r r  r  n  wn  .  ■  'ii  r  ;;e  ;  ■  :  .  •  .... 


Figure  1  illustrates  this  relationship. 


Figure  1.  Observed  Point  and  its  Film  Plane  Image 
Relative  to  the  optical  Axis. 

Having  the  focal  length  of  the  lens,  s^,  given  by  the 
manufacturer  and  the  measured  distance,  r^,  the  distance,  r^,  can 
be  calculated  by  similar  triangles  to  be: 


This  does  not,  however,  permit  the  determination  of  the 
vector  direction  of  r^  from  the  point  at  which  the  optical  axis 
penetrates  the  object  plane. 

If  one  could  construct  a  perpendicular  set  of  axes,  x  and 
z,  in  the  object  plane,  for  instance  a  horizontal  and  a  vertical 
line,  intersecting  at  the  optical  axis,  then  the  vector  direction 
of  the  line  segment,  r^,  can  be  determined  by  measuring  the  angular 
displacement  of  its  image,  r^,  from  the  image  of  the  x  axis  or  by 
measuring  the  coordinates  of  the  image  point,  p.,  and  solving  for 


I 


■■me  iui;rc‘'i  t  In.!  ..  iiuj '/alent.  of  u  piano,  normal  ro  the  optieal  ixi 
ubij !:  ex  i  !3  b.L-fwo!>:.  the  focal  point  of  the  camera  and  th.e  m:. 

''LO'.vt:!d  by  th.(.'  eaiuera  at  a  dist..mce.  from  the  focal  point 

.Ft.-jiiro  -3)  .  Now,  aqnin  assuming  no  distortion,  we  have  the  rt. - 
1  a  t i onship ; 

r  r  r 

_  1  _  p  _  _jO 

O  -  ti  S 

f-  >'  /-\ 


L  i‘j'iro  3.  )h.:  1  ..o  Lonsh ip  Lxisting  Among  iirav.e  Plane,  Proj('ctn.] 

Iniaifc  Piano  and  Object  Plane. 


af  a  .;ci';!r;d  point,  <-Vn  a  line  p-arallel  to  the  optrioi 

ixi3  and  passing  t.hrouyh  the  first  object  pioint  (such  that  r  -r  1 

i)  . 

1  ;3  observed,  me  distance,  from  the  optical  axis  (or  center 

cf  projected  image)  t:o  the  projected  image  point,  p  ,  is  rolatr 

P  ^ 

to  the  distance  s  _  as  the  distance  r  is  related  to  s  ,  i.o.  ; 

c  2  o  2  o  2 


r'ir'jj'v:  i  ,  iT',:  jfr  Lod  c-f.  r' 'Oil  rr.infs  Equidistant 

iron!  Optical  Axis  hut  l.yinq  in  Different  Planes 
N’crmai  to  the  Orfical  Axis. 

Mow  let  us  return  to  the  proi'ion;  of  relating  the  orienta- 
ticr,  of  the  film  frame  imane  to  the  obser'.Tfd  scene.  As  has  been 
stated,  it  is  usually  not  practical  to  drav  a  set  of  axes  on  the 
observed  sccnf’ .  It  is,  however,  practical  r.o  establish  a  coordinate 
system  in  the  scene  and  survey  the  coordinates  of  several  fixed 
points  of  reference  in  the;  ('St  abl  i  r-hoJ  system.  Figure  5  illustrates 
the  pro‘jerted  image  of  the  points  ry^,  the  origin  of  the  scene  co¬ 
ordinate  system  (SCS)  and  and  p,,  wliich  are  surveyed  reference 
points.  For  the  sake  of  simplification,  the  three  points  are  co- 
planar  in  a  plane,  y=n,  normal  to  the  optical  axis  although  in 
practice  this  is  not  required.  The  imacos  of  these  points  are  pro- 
3ect<^d  on  a  viewing  screen  on  which  a  roordin.itr  system  is  imposed, 
which  '•■•’o  shall  call  the  projected  imacc  oooiolinate  system  (PCS). 
Having  ttu'  coordinates  in  the  SCS  of  th'^  two  obscr'/ed  points  Pol 
and  p  ,,  the  pr;;  iectc'd  image  can  nrw  he  i-etati'd  relative  to  the 
PCS  tr  c  irird'v  the  r  i;  la  t  i  onsli  i  p  : 


2.2  HORIZONTAL  IMPACT  FACILITY  PHOT'iMETP  I C  PATA  ANAAY-  i- 

PROGRAM  (HIFPD) 

Horizontal  Impact  Facility  Photometric  Data  Analy:-:’s  :  . 
gram  (HIFi’ij)  ]s  a  <!iaii-al  cr'iiiputc''r  p’  i'"  ■  ■  '  '  ■  • 

the  Hyae  Impact  Facility  Photometric  Hat  a  •  r  l- ■  ^  -r.  • 

tection  Branch  of  the  Biodynamics  Bioengineer  l.’;  i  ; 

AFAMRI, .  The  program  was  compiled  and  execuicd  -  •:■■  ■  i  ':c  ' 

computers  at  Wr  ight-Patterson  Air  Force  Base. 

plot  package  is  used  to  plot  data  and  thus  ir.  .  •  - 

load  and  execute  the  orogram. 

This  program  inputs  the  code  sheet  data  and  it  'ara.m 
trol  prarameters  described  in  the  section  entitled  "  I'escr  i ;  ■  t  i  ca- 
Program  HIFPD  Input  Data  and  Parameter  Codes"  and.  i  i  ‘ 

(MAXN)  frames  of  x,  7  position  data  for  the  rancje,  sl-od,  hito 
shoulder,  elbow,  head  point  I  and  head  poii't  2  for  ITVt"r:-:0  nr 
range,  sled,  head  point  1  and  head  point  2  for  ITYP"-,1.  The  da* 
card  format  are  also  described. 

The  program  computes  the  followina  four  types  of  data  a 
requested  by  the  program  control  parameters: 

(a)  The  input  data  versus  frame  number  and  the  frame  t 
frame  differences  are  printed  in  ccnints.  The  range  dtffercnce 
is  subtracted  from  the  frame  to  frame  differences  for  each  of  th 
seven  parameters.  T!ie  only  value  of  this  difference  da*  a  w'cjld 
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in  the  dat 

a  . 

Wh  *-■  n  * .  h  j  n  p  u  *■  i  t .  i 

a  rt-*.  a  ' 
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ame  numh-c 

'  s  ^  i 

]  :  in  .-oun*-;:  . 

( b )  The 

d  i  sp  1 .1C erne 

nt.s 

(  s  .i;u:  ■  c  ‘‘  t  -i.-  1.  . 

,  •  1  ■  r 

elbow,  head  point 

1  and  head 

p’j  i 

ni  2  r.'  ;  ■  • 
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p  u  t  e  d  ,  and.  a.  mo  v  me  cl  c  vc  n  :  ■ 

f  i  n  t 

,  \r  1  ’  '  n  c-c  c  t  ■  ■ 

fit  is  used  to  smooth  the  .la 

t  a  . 

Those  : .  i  •  'S'  ;  ■ 

;  ;  ‘  *  ■  c 

reciucsted  on  the 

test  setup 

■  'a  rii 

• 

(c)  The 

1  n  q  1  e  s  J  n 

t:  at  ii 

.ans  bctwecci  *!'■■  -n  ■ 

!  i .  ;  T  -  S 

and  between  tlio  h 

cad  ;  o ini  ! 

\  n  i 

head  p.  '  ;  <  1  ;  . . 

:y.  ■ ;  t  ’ us  1 

the  above  smooth.t' 

d  data.  Th 

*7  aa 

.lular  I  c.' i  *  y  is  - 

im.’.'iitcd  in 

1  1 


■cm’.' u  ted  in 


radians  per  second  nsinq  a  ;’'.ovini;  11  point  >'.uadrati  ;;  :  i  r  *  I'.t,. 

angle  versus  tin-.e  data  f/c:"’; ‘Utw.-.  derivative  of  ..act  .v  _  ; 

tion)  .  The  angular  acceleration  is  coir.puted  usiru'  a  r.  ■ 

point  quadratic  fit  of  tiio  .■Ldocity  versus  ti;:,c  da'_a.  .  „ 

are  also  plotted  as  t'-_iuested  on  tlie  test  setue 


(d)  The  linear  velocity  and  acceleratio!’.  drta  ;  ;  c.  .• 

bination  of  the  eight  variables  are  computed  as  re  Tucsy'jc  •.!.  tho 
test  setup  card.  For  example,  the  linear  velocity  ..:o-.'.era' 

of  the  head  point  1  relative  to  the  ranee,  sled  rr-iati  /v  '  • 

range  or  the  head  roi:\t  I  rolavivc  to  the  sled  ci:-  '  v"'  i- 

Note  that  range  relative  to  som.e  other  parameter  canrret.  C'. 

To  compute  these  linear  velocity  and  acceleration  data,  th',.  a:, 

displacements  are  computed  for  the  variable  of  interest  leiativ 
to  the  reference  variable.  :ir.'Vinc  eleven  roint  i.'.'I- lu  a.:.  ^ 
least  square  smoothiin;  iunc_.'.an  i'  appliec  to  both  v,;.-  ......  .  t 

histories.  A  movi.ng  eleven  point  quadratic  ?east  c-Tuarc-  fit  _s 
then  applied  to  these  smooth.ed  x  and  z-axis  displacement  data  t.;.- 
obtain  the  x  and  z  components  of  velocity.  Next  this  sair.e  s:'iccth 
ing  routine  is  applied  to  these  x  and  z-axis  velocity  data  to  com 
pute  the  X  and  z  components  of  acceleration.  The  resultar.t  dis¬ 
placement,  velocity,  and  acceleration  data  are  then  computed  usin 
these  smoothed  x  and  z  component  data.  These  data  are  printed 
and  plotted  as  requested  on  the  test  setup  card. 

The  three  external  files  used  by  this  program  are  t!io  ir.iut 
file  (unit  5)  used  to  read  ail  code  sheet  .and  data  cards.  'Ihe 
output  file  (unit  6)  used  to  print  all  output,  and  TAFE7  (ur.it 

used  to  generate  the  plotter  tape.  A  magnetic  tare  rT:"S‘:  b-,  "t. 

quested  with  TAPE7  as  the  loc.al  file  name. 


The  follcwinq  sections  of  this  report  present  .'i  o 
scription  of  the  main  program  urK;  -all  subroutine.s  exce; 
COMP  plot  routines.  Flow  cii.';r's  arc'  ai.se  LncludO'..;  r.  i 
Appendi.x  C  contains  a  cer’;!-.'!-,,  listinT  of  the  pr-'aiar.  ; 
and  Appendi.x  D  contaiia?  a  s.iiip  !c-  r-n:  v  i.t'le!-,  ■.  itl:  LI 
output  data  (incluNiin: 


.  i  s  tin  T  o !  the 


'UC  -  a  L 


1 


w 


:  Ma  1  ii  Rout '  ft- 

this  main  i  Ul-  o-  u’ ^  r  a  R-  ;  ^  '  ;  •  :  .  ■  ,  :  ; 

\  aa  re.R-ies  t- ->!  '  y  •  lu  ■ 

“  roq  ai  rcu  y  .  ■  a  '  ! .  •  :a  ■  ^  1 1  •  ,  ...• 

a .  a  a  1  t  s  are  ca '  .  '  ■_  a  ; 

;  ,  !  1 1  -  aa  f  rorr  er  rc:  'a;  i  a  ae  ta;; '  a*  o':,  aa  y  r  -  ■  a  ;  :  :  a  • 

' ais  routine . 

•■le  thod 

The  rroqra,:  ;  _aa:r  t;.e  cca.a-  oa  -  .  '  :  .  a 

::o;a:eea  in  the  "  Der  or  r  at  i  on  or  tro”>ai,':  I;  '  R-  la  ;■  :  ;.a  a.  ;  a  .i-aa- 
aiao''  section  and  :o  1 1. 1 1  a  i  i  r:c:0  tro  a:  i-a  :a  a'  ■  i.-  a  .  a 

a  te  1  s  .  The  pi  a: ;  .  a  : ;  a  a'  tiio  a-  -  ’  .  .  ,  a  .  a  ■  a,  •  ,  a 

a  .a:io  data  fot  ■,  i  V-'!  ■■  ■  ; 

-  ;  an-:  J)  I o r  each  :  aa  •  i  adcn  '  ■  :  a  i  '  .  '■  ■  ‘  '  '  '  ■  a  ■ ' 

aa  a  code  are  checkeci  ter  input  or'  ., 'is:  eiroir-  :  ;:aa  ■  ai  aa 

1  ainostics  to  be  prititcd  and  the  processina  I  aa  •  ■  u  aa ,a 'a,a: . 
•  n.cre  than  MAXN  trai?-e?  arc  read,  diaunostics  a:;*’  ;  rirdaoa'  aia; 
a-,. 13  beyond  MAXN  arc  omitted  from  the  anaiysrs.  T.';  i  t;l:  ‘.a. 
.1  are  computed  from  the  frame  numL'cr  as  rciic'o.':'; 

T  (I) =IFR(I) /DT 


:  '  :rR(I)  is  the  frame  number  and  IJ'~  Is  t;>c  numba:' 
.  .  a  i.cccnd.  If  setup  card  parameter  IRX  la  ur  ia-a'i  t 
lU'  a -on  of  all  x  axis  data  are  chaiv;ed.  Aisr  vh'--o  .. 

•  ii  imetei.  lADJ  is  gr'''ator  than  tero  .  ad  iustm*^!'.-.  f  air. 

arc  added  to  a':  x  .ind  z  axis  data.  ttti"  )  '  i 
La'. a,  a  summary  page  rs  printed  listiiiu  all  t'_  pen  ,i ' 
■'■'mnuted,  printe  ’  .  and  plotted  for  th  i  a  ten:  . 

when  progr  im  m.’ntra  1  p.ir,;:r:'"tc:  ha  ,  d.  : 

.  .:  ii.is  data  are  printed  i;i  counts.  Iho  n-e  ‘ 

•  ■  ’M  ’  data  are  co-::>:c.\  ard  e:  ;  n '  a  :  ;  •  h  > 


XD(1)=X(I,1!  -  X(I-L,1) 

XD(J)=X(I,J)  -  X(I-1,J)  -  XD(lj  . 

XD(1)  is  the  range  difference  from  the  frame  and  XD(J)  is  the? 

th  t  h 

variable  minus  range  difference  for  the  J  variable  and  the  T 
frame.  The  above  are  also  computed  and  printed  for  the  z  axis 
data  . 

When  code  sheet  parameter  ICAM  is  greater  than  one  (camera 
IS  on  the  sled)  subroutine  ROTATE  is  called  to  rotate,  translate, 
and  calibrate  the  x  and  z  axis  data.  When  ICAM  is  less  than  one, 
these  X  and  z  axis  data  are  adjusted  for  shifts  in  the  range  re¬ 
ference  reading  and  then  converted  from  counts  to  feet  (in  the 
Main  routine ) : 

H1=X(I,1)  -  X(l,l) 

H2=Z(I,1)  -  Z(i,l) 


X(I, J) 

=  cxd 

,  J) 

-  HI) 

*  CAL(J) 

Z (I, J) 

=  (z(r 

,J) 

-  H2) 

*  CAL(J) 

where  CAL(J)  is  the  calibration  factor  for  the  variable 

iJ=2  to  8) .  Next  subroutine  MEANl  is  called  to  compute  and  print 
the  mean  and  standard  deviation  about  the  mean  for  the  sled  re¬ 
ference  data.  This  provides  an  estimate  of  the  film  reading  errors 
since  the  adjusted  sled  reference  should  be  a  constant. 

When  program  control  parameters  IPC  ■;  2  or  IPA  ''  2 ,  x  and 
z  a.xis  motion  relative  to  the  sled  are  computed  for  variables  3 
to  8  (or  7  and  8  for  ITYPE^l) : 

XD(I)=X(I,J)  -  X(I,2) 

ZD (I) =Z  (I ,  J)  -  Z ( r , 2)  . 

Subroutine  SM  is  called  to  compute  a  moving  eleven  point  (NP-II' 
quadratic  least  square  fit  to  smooth  the  X  and  Z  axis  data.  The 
smoothed  data  are  stored  in  arrays  XX(T,JJ)  and  ZZ(I,JJ)  where 
jj=J-2.  As  a  result  of  the  eleven  point  smoothing,  five  frames 
are  lost  at  the  beginnina  and  i?nd  of  the  test  data;  this  is  true 
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■  1  _  =  A  A  »  i.  ,  • 


A  D  ( I ;  =  <-1  r  n  a  It  o  i  i.  a  b 

where  index  3  is  shoul  ier  iat-.a  ar;  :  :r'.'ie';-:  is  hi;  :  ■ 

and  ZZ  arrays.  .Ancles  XD  (  T  ■>  ■  a  ;a  .  ■*  ■ 

.niake  chert  conC  i  neons  .  aai'i  r  oa  •  a  * 

aiiculn.'  ■.•eLo  ::ty  rn  radians  .a.-  •.  n  ;  :•  r:.  •  . :  • 

(NP  =  11)  njadratic  fit  -a  f  the  i'  ;  o  •  mi  •n.:-.:i; 

in  radians  per  second  scuare.;  f  n  a-;  . 
of  the  velocity  data.  The  ancniai  .J  i  t.a  ar-/  i 

IPA=0,  subroutine  CPLT  is  called  to  .renerate  C.-M.  .’O'-'r 
angular  velocity  and  acceleration  versus  tinre  il---!; 
angular  cata  are  computed  in  a  similar  manner  for  he 
minus  head  point  2  data  (indice.s  and  6  in  arravs  x 

Parameter  .V  contains  the  number  of  sets  ' 
and  acceleration  data  to  be  computed  for  one  v,n  labl 
relative  to  an.otlier  (array  IRi  .  For  -exam;,  b'-,  'it  i  b 
IR(1)=2,  then,  for  set  Sl=l  the  hip  motion  1 'i  1 1 're  t' 
computed  for  ail  available  frames. 


If  M  <  0  and  I  PL  2,  all  data  for  var; 
ad]usted  by  subtracting  ttie  in;  rial  i  is  •- 

X  f  T  ,.J)  -X  ( T  ,  J)  -  ]  ,d) 

z  ;i ,  j)  =z  ( I  ,h)  -  z  .  1  ,  .T' 

where  all  x  and  z  data  hat'i-  p r<' v ;  o ,is  i  y  i'-s--;  •-  - 

to  feet.  For  t^a-nh  of  the  ‘-i  sot  -  f.-l  i-'wi":  : 


,  ••  '  '  V  .  . 

I L  ‘  .  . » .  t ; .  . 

The  v^».  i.ibiLd  j  i  ■-  ii.  :  ..'i 

to  be  i-  i  V  ■  l  ■  .  ■  : 

iata  It-  atu 

'/a  Lui's  ;  1  r  . 

Subroutines  i..:,:. 

the  leui^Ti  ;  ■  i .  r  •  : :  i;  :. 

X  array '  m  S’,.  •  ;  n.  .  ■  ; 
second  an.  i  ;oo  ■  .  ■ :  a '  . . . 

1 1  ni  t_-  s  v-  el  1  i  I .  ■ ;  :  .  :  ,  . 


V  -  i ; 


initial 

1  1  t.ie 

V  a  1  ue 

,  1  1  ,  :  1  V  .. 

X  (1 )  ; 

(b ) 

tile 

t  i  11  ■  .IK.'.'  1  '.lO  ’  1  . 

ic  J 

The 

t  iit.e  ai\is  i  inijth 

the 

tot.il  luin-ie  X N  ) 

SX-  F 

1 ,« lAT  ( 

IFM-  '.XiM  -Xi'::]. 

The  anuuiar  voiocity  ane.  acce ;  eo  .if.  ..ai  ;  ,n.;:.:r 
inch  scaling  are  stjt  ar-  by  caliinu  sul-i  ur  .  rr 
the  data  and  sets  values  ..iccoru  :  inj  iy  .  .  .ei 

printed  on  the  left  side  of  the  ■iraidi  ar:d  t'ne 
on  the  right  side.  Subroutines  i.INb  ana  SYMB' 
the  data  and  print  t!ie  legend  on  the  g.aph. 

For  paraiiietei  IF-',,  -'il,;’  .-n-i:..;!  .i ;  (.-s  i' 
or  X  arrayj  in  seconds  /et  su.;  liji-eo  '.a- ; . ’i.;  ;  ■  y 
second  and  acce  ie  i  a  t  loi.  i  )  lUi  'I'.i.  tiiic 

as  per  IP  =  i  above.  Tht.  vel-'ciiy  ano  .  •.  1  ■  i  r  . , ' 

using  the  san.:;  wiiinat  ■  :  -i  i  .  ■  .  ”  h-  :  . 


NP  -  number  of  points  used  in  least 
square  fit 

n  -  first  point  used  in  composite 
plot 

12  -  last  point  used  in  composite 
p  1  o  t 

XX  -  array  or  ;<  axis  displacement 
da  ta 

ZZ  -  array  of  z  axis  displacement 
data 

ICAL  -  flag  array  which  identifies 
derined  data 

L(1AL(J)  =  0  -  variable 

unde  f  1  ;n.-d. 

r.Ad.  (  J)  -  1  -  '.'al  l.ibic 

IS  dt;  r  1  !  ,1 

HEADL  -  array  containing  variable 
names  used  in  iecend 

TEST  -  test  identification  used 
in  legend 

IRX  -  flag  used  to  setup  composite 
plot  X  axis  scale 

DYlP  -  y  increment  per  inch  for 
linear  plots 

S  ub  routine  Le n g  th :  1  G 1 2  ^ 

Labeled  Common  Length :  24^ 

Blank  Common  Length :  7 Q 6 6 g 

2.2.1  Subrout  i  ne  SM  ( X  ,  Y  ,  YC,  .N  ,  NP ) 


Hubrout  in<_'  SM  is  a  smoothing  routine  which  computes 
j  quadratic  least  square  lit  ot  NP  dependent  variable  data  points 
(Y)  to  compute  each  smootheil  data  point  (YC)  .  Since  NP  data  points 
ire  uschI  to  compute  each  smoothed  point,  M  data  points  are  lost 
at  the  beginning  and  euul  of  array  YC ,  where 

M= (NP-1 ) /2 . 


iO 


Method 


The  first  (MM)  and  last  (NN)  array  indices  for  which  YC(I) 
are  computed  are  determined  as  follows: 

MM=M  +  1 

NN=N  -  M 


where  M  is  defined  above  and  N  is  the  number  of  original  displace¬ 
ment  points  in  array  Y.  Subroutine  QLSQ  is  called  to  compute  the 
Cf,  C^,  and  coefficients  for  each  of  the  I  smoothed  points  which 
are  then  computed  as  follows; 

YC(I)=C^  *  X(I)^  +  *X(I)  + 


A  flow  chart  for  this  routine  is  shown  in  Figure  8. 


Error  Diagnostics:  NONE 

Subroutines  Required:  QLSQ 

Argument  List:  X  =  array  of  independent  variable 

Y  =  array  of  dependent  variable 

YC  =  array  of  smoothed  dependent 
variable  data 


N  =  number  of  oriqinal  displace¬ 
ment  versus  time  data  points 

NP  =  number  of  points  used  to 

compute  each  smoothed  data 
point 

Subroutine  Length:  75g 


2.2.4  Subroutine  DERIVl  (X,  Y,  YP,  FJ ,  MP ,  T L ) 

Subroutine  DERIVl  computes  the  derivative  (YP)  of  the 
dependent  variable  Y.  A  quadratic  least  square  fit  of  NP  points 
is  used  to  compute  each  derivative  point;  thus  ?:  points  arc  lost 
at  the  beginning  and  end  of  arr^y  UP: 


n 


K  = 

M  + 

M 

*  ID, 

M  = 

(NP 

- 

l)/2. 

ID 

=  1 

for 

first 

derivative,  and 

ID 

=  2 

for 

second 

derivative 

:  i,  •  nar  :or  ID  1,  array  Y  contains  displacement  data  which 
i.-i'-i-  already  been  smoothed  using  a  quadratic  least  square  fit  over 
:.'D  y'lrics;  thus,  M  points  have  already  been  lost  from  the  original 
L^ceir.ent  data.  For  ID  =  2,  array  Y  contains  first  derivative 
■.•ei.ce*ty)  data  which  starts  at  array  location  Y(2*M  +  1). 

Method 

The  first  (MM)  and  last  (NN)  array  indices  for  which  YP(I) 
,.;e  •emruted  are  determined  as  follows: 

MM  =  K  +  1 

NN  =  N  -  K 

whore  K  and  M  are  defined  above  and  N  is  the  number  of  original 
laplacemicnt  data  points.  Subroutine  QLSQ  is  called  to  compute 
the  C,,  and  coefficients  for  each  of  the  I  derivative 

roonts.  The  derivative  YP(I)  is  then  computed  as  follows: 


YP(I)  =  2*  C^*X(I)  +  C^. 

A  flow  chart  for  this  routine  is  shown  in  Figure  9. 

Error  Diagnostics :  NONE 

Subroutine  Required:  QLSQ 

Argiimf^nt  List:  X  =  array  of  independent  variables 

Y  =  array  of  dependent  variables 
(displacement  or  velocity) 

YP  =  array  of  derivative  data 

N  =  number  of  original  displace¬ 
ment  versus  time  data  points 

:,'P  -  number  of  points  used  to 

compute'  (-ach  derivative  point 


i 


Indices  ot 
first  iilf)  and  last 
iN'C'  points  for 
derivative 


.  or.iiUt  ^  del  1  va  ti  V 


( I :  ^  i-'c  *Xi  I) 


Return 


Fiyure  9.  DERIVl  Flow  Chart 


where  summations  of  XP  and  Y  are  computed  for  indu:-;  1  c  jual  :;l 

N2.  Determinants  are  used  to  solve  the  above  system  ci  uquatj. 

for  the  coefficients  A-,,  A_,  and  A,.  The  C,  ,  '  ,  j-.a  ■,  ;• 

i  -  :>  12  • 

are  computed  from  A^/  ana  A^  as  follows: 

C'l^Ai 


—  A  _  0  *  ; 

^2 

'1 

*  FF 

=  A.,  +  A, 

* 

FF*^  -  A.,  * 

3 

3  1 

2 

A  flow  chart  for  this  routine  is  shown  in  Fiaure  10. 
Error  Diagnostics:  NONE 

Subroutines  Required:  NONE 


Argument  List: 


X=array  of  indepeivii'n t  •.''.r:'?! 

V  =  array  of  dependent  var::\b'; 

Nl=index  of  first  point  used 
in  fit 

N2=index  of  last  point  used 
in  fit 

C=array  containing  quadratic 
coefficients . 


Subroutine  Lenath; 


2.2.6  Subroutine  ROTATE (N , J1 , IPR) 

Subroutine  ROTATE  translates,  rotates,  and  calibrates 
on-board  camera  data  stored  in  arrays  x  and  z.  All  data  are  ‘ 
lated  to  a  coordinate  system  through  the  sled  range  reference 
(first  X,  z  point  for  each  time) .  The  axis  is  then  rotated  s. 
angle  between  the  sled  range  reference  and  the  sled  reference 
(second  x,  z  point  for  each  time)  is  the  same  for  all  time  s ' a 
i.e.,  all  angles  between  the  sled  range  reference  and  slec,  :•  : 
ence  are  the  same  as  the  anale  at  time  zero.  The  data  .i*  O  ' 


translated  bacl<;  to  the  initial  coordinate  system  (at 


Method 


For  the  first  time  station,  the  ran^je  x  and  z  data  are 
subtracted  from  the  sled  reference  x  and  z; 

X1=X(1,2)  -  X(l,l) 

Z1=Z(1,2)  -  Z(l,l)  . 

These  differences  are  used  to  compute  the  reference  angle  "  : 

K 

6  =arctan  (Zl/Xl) 

R 

If  D  is  less  than  zero,  then 
K 

^  360. 

This  is  the  reference  angle  between  the  range  and  sled  reference 

points.  For  all  other  time  stations,  the  axis  through  the  range 

reference  is  rotated  to  make  the  angle  between  the  range  and  the 

sled  reference  points  the  same  as  9  .  Note  that  for  this  first 

K 

time  station  none  of  the  x  and  z  array  data  are  rotated  or  trans¬ 
lated  . 

For  time  stations  1=2  to  N,  the  following  are  computed: 

(a)  All  data  (J=2  to  8)  are  translated  to  a  coordinate 
system  through  the  range  reference  as  follows: 

X(r, J) =x(r , J)  -  X(I,1) 

Z(I,J)=Z(I,J)  -  Z(I,1) 

(b)  Angle  9^  is  computed  from  the  sled  reference  dif¬ 
ference  ; 

9^=arctan  (Z(I,2)/X(I,2)] 

If  .  is  less  than  zero,  then 
1 

+  360. 

1  1 


38 


f-  ^ 

(c)  Angle  is  the  nnrle  !;y  'A'l;i.-h  the  I  '  h..i'' 

been  rotated  with  res:'>’ct  t-o  the-  initial 

~  1  R  ■ 

(d)  The  inverse  rotation  (or  rotatior.  bv  -  is  ‘".r 
puted  as  follows  for  paranieters  J“i  to  3: 

X  { I  ,  J) -X  (I ,  J)  *  cos'-  +  Z(I,J)  *  sin- 
Z(T,J)=  -X(I,J)  *  sin  -t-  7.(1,.-;)  *  cos- 

The  data  points  are  then  translated  back  to  the 
initial  ranae  coordinate  system  (at  time  zero;  : 

X(I,J)=X(I, J)  t  X(i,  1) 

Z  (I  ,  J)  =7,  (T  ,  J)  +  Z  (  1  ,  P 

All  X  and  z  data  for  pa rarr.et -> rs  .1-2  to  3  are  con 
verted  from  counts  to  feet  : 

X(I,J)=X(I,J)  *  CAL(J) 

Z(I,J)=Z(I,J)  *  CAL(J) 

This  subroutine  also  prints  a  listinc  of  frame  number 
versus  parameter  x,  z  data  in  counts  when  IPR  is  less  than  one 

A  flow  chart  for  this  routine  is  shown  in  Ficure  11. 


i  e 


(f ) 


Error  Diagnostics: 

NONE 

Subroutines  Required: 

NONE 

Argument  List: 

N 

numiier  : 
time  data 

d  isp  1  !  • 

po  '1  n  t  s 

J1  - 

index  of  f 
sled  reft^r 
Jl-3;  for 

1  r  s  a  ra-  1  •  t  •  - 

ence  .  F-  r  1  '1 

ITYFF-l,  '1-' 

TPR  - 

! u  1  n  t  con  t 

:  o  i  :  la  r  i!-'  ‘ ; 

Blank  COMMON 

Variables  (used  by 
this  subroutine) : 

(FR  - 

array  c.-.'nr 

a  ;  n  ;  r  r’  v  •' 

X 

a  r-  r  a  '  ->  x 

a  1  s  p  !  i '  'o 1  ■  n,  t 

a  r !  I',' 


■  P 


deviation  about  the  nean  for  x  and  z  axis  slu'.; 


Method 

tonipute  the  mean  of  the  and  z  axis  d,:i 

AVX  =  i  d  X(I) 

1  =  1 

1  I’ 

Avz  =  ^  :  z (I) . 

^  1=1 

Then  compute  the  standard  deviation  of  th.e  data.  ab<,ai' 
X  and  z  axis  value: 


SMX  = 

»  N 

1  =  1 

[X(I) -AVX] " 

N-1 

SMZ  -- 

V  N 

1 

f  Z  (  I )  -AVZ  I 

1  =  1 

N-1 


Finally,  priiit  th‘'^  moan  ami  ntar.flnrci  'iovi.it  irir,  .i-ir  !  nn  tb.e  standar- 
output  file. 

A  f  I  o'v  .:;,a  t  t  f  i  u  *  !:  ■  s  i  ■  a;  t  j  n.  ■  i  o  i  . 


riONK 

N  -  number  of  x  am;  r  i:-  -?  iata 
po i n  t  s 

X  -  OT^ra’.-  c*  >•  ay;;-  ;at.i  aints 
Z  -  array  of  z  ax  in  data  points 

2.2.8  Subroitine  .MEAN2  vN’l,  XD,  ZD_,___S^X_l_SMX2  , 

sm::_;__smz2)  ■ 

dubroutino  MFAriZ  ooinuutes  the  mean  anfi  standard  deviation 
of  unsmootiied  iTii.n\is  smoothed  x  and  z  axis  data. 

^^et^od 

The  sums  and  sums  of  squares  of  the  unsmoothed  minus 
smoothed  data  are  computed  as  follows: 

N2 

SMX  ^  2  Did)  -XD(T) 

I=N1 

N2 

dMX2  =  [or ( T )  -  XD ( n 1 

I^Nl 

\2 

■IMZ  ^  .  DCd)  -  ZD(I) 

I=N1 

dMZ2  -  [  DC  (  i  ■'  -  Z.r-M  I  .  I  ■ 


F, r  r :Di  Jd  1  a^ n t  i c s  : 

S ub r o u t i n Require d  : 
Arqum.ent  List: 


Subroutine _ Leni^pji : 


:  ’ '  ;ihGvo  are  defined  in  the  arqument  list  be  1  ov.’ . 

,  bMX  and  SMZ)  and  standard  deviations  (SMXr  and  SMZ2j 
.  e.i  from  these  smns  and  sums  of  squares: 


;;iow  chart:  for  this  routine  is  shown  in  Fi.f.ir-’  P. 


index  of  the  first  data 
point  used  in  the  summati 

index  of  the  last  data  po 
used  in  the  summations 

array  of  unsmoothG,:  ;< 
data  points 

array  of  unsmooth, od  z  a::: 
data  points 

array  of  smoothtni  x  axis 
data  points 

array  of  smoothed  z  a;:io 
data  points 

me  a  n  x  a  x  is  d  t  a 

standard  •le'datior.  ■  *'  i 
data 

z  axis  laf  ; 


r r or  D i a q no s 1 1 c s : 

NONE 

uiiroutinos  Required: 

NONE 

.rqtiment  List: 

N1 

M2 

DT 

DC 

XD 

ZD 

DMX  - 
SMX2  - 


•SMZ 


mean 


S.MZ2  -  standar'i  ..it.;'.' i  ;  v  .  i.  z  ixih 
data 

a  UP  r c^u  O  I'i L-  _ij_; ! ; a  ti i :  1 6  ^  . 

- .  J  .  .t  i'at'.i  I'i.-par.it  it'in  t.-jt.  1  n^jut  to  illi’!-.'; 

i '  1  tt; ;  j 1  I  i  j li  V ;  r  •  I..J  t  a  !.  V )  r  :  ; :  j  v4 1  *  '_■  ii  i  •  1.)  •  •  r :  ‘o  :  r 

-  -  ■  ■  •  1  4-  :  1  L  1-  Z  i  1  !■  j  .  'i'l  Uj  OvJ  i  t  1  iKj  t  '•  i  riC  tl  1  ‘‘.j  I :  I '  I  '  ic.'  S  Ill:'.  l'  .u  ~  ~ 

Z( -iz. ^  ar:^  l'CS  < 'oc-rd  i  na  tes  to  {>Iano  of  r-iotic:.  ra:oaLt..-s 

■  ;'.-.'ers  lap.  ractais.  The  d  i  .i  i  1 12.1.  no  f  auction  provides  trie  :r.jp:e- 


oy- :  rai; 

,e  "reading"  ot  t.he 

projected  film 

'rrair.e  coor.d 

1  nates.  Th’... 

I e  rorer 

•  Ces ,  or.  ".standards, 

.  "  required  to 

recess  the 

data  .ire  film 

■  .  .  '.e  ft 

•ir-fer.  .'e  palses  and 

.survey-.al  f  i.puc 

I  j  1  s  ;  1.  t'.vta 

I. lanes  ncrrr.al 

-i  t.'.'.ii  i.s.-;  ■  :  th'.-  aaiiit.-ra. 

I'Liniii';  tj  f  tile  tiiiii  ti'aiiies  'tvas  ac._'oi;.;.  i.srioc;  a'_.’  .-'pi.jaiati 
ti.e  averaje  filn,  speed  over  a  span  or  appr 'ixin  a  tely  150  frames 
;  .i  OO  msec  ;  . 

The  t.irst  frame  in  which  tne  stroboscopic  flash  was  oL- 
servea  was  defined  as  t-0.  The  strobe,  initiated  by  a  time 
.1'/ pci'.r.  ni  1 2  in.;  pi.iJ.se  which  '^as  .also  I'ecoioied  on  the  magnetic  tape 
iin.'.-.,  .ic  t  ,.a  1  ! aivt-.s  t  1  nd  1  ■ '.i  t  1  en.  v.ithin  2.0  milliseconds 
1.  •  .it  the  niiiainui  n  ii,  st.''eei.i  ~i  500  fran.es  per  second  with 

1  i-i..'"  sioitter.  .lince  the  flash  is  not  observed  in  film  frame 
-000  1  ana  is  observed  iii  film  frame  0000,  it  is  apparent  that  it 
w.is  initiated  between  the  closinq  of  the  shutter  on  film  frame 
-0001  and  the  closing  of  the  shutter  on  film  frame  0000.  During 
St  tests,  the  intensit'^'  of  t.he  first  observed  flash  would  in- 
;i.;ate  tdiat  it  was  initiated  between  the  closinc  of  the  shutter 
ir.an.G  -000  1  and  the  0[jeninu  <if  the  shutter  on  frame  000.  If 
•  !  s  IS  the  ..'ast;  ,  the  t  ;nd)..'jt  ion  ''oumi  b--  considered  to  be 

'  J 

;  ■ a  :  !  t  1. 1  -  ’  1  ,  »  1  .  2  mi  1  1  i  .seconds  ,  1  . 1  ■  .  ,  : 


)h0"  -  140' 
i  0  0 


iM-sr-c 


[ 


i 


* 


J». 


■  iK-  rcv-idiivis  thi_-  .ii;t_iir  i;  rn/ ♦  ;.m  mt.s  suLi;^- 

thit  t;dL‘  t'c  i  1 ;  iW  :  :  Lu'  Kiiciw:;. 

j  st,arii.'c ,  trial  tc  rhc  lane  ..a  sy:;inietfy  of  ti. 

.D  oi.’t,  ;  :  L  ;:  t!.a‘  ;jlar'.«.-  Co  t-ach  I'C  Cwt^  planes,  pacallel  tc  ci.e 
i  ■  1 : . o  : ,  .  :c:’ it  a  :  y  ,  ,0  .v ; a.  ./n  :  t  a  t  o'  t^a .  i  'o  t  i  a nc  i  lj  1  s  /t/t  aa'  aa  ic-.  ea  . 

id  ‘  aiitj  iistai.^:es,  noiiCui  Cm  tile  ’.'lane  ol  Hymaetry  of 
■-.'i'  ian.joc,  :  t  or.  in.  it.  nlane  to  e-aoh  of  t.he  a.ntf.  ropcir.t' t  ra  o  points 
;.i.-  r  novat  a  . 

,  ')  That  t  .ho  oj.tical  axis  .of  the  [a.a  r.ar-y  (.■ar,ua’"a  was 
n.vr.a.  1  to  thio  :..lan'.;‘  of  syn-'jnetry  of  t.ho  .si.ib'jec't  . 

oi !  T.he  >:iistanct‘s  ,  betwee-n  oenters,  '.a  t.l'.e  rt?  r  t  '.t 

;:.n;.;-als  :;t.a;rUei.i  in  oach  a:  t  iitt  r  t.a  ;  t.-oto,'  i 

The  cuota;  Liuit.es  of  thtj  1 1.  ;  e :. 'on.  o'  fioa;’.  iis  .;  r  ii.  r  a  •  htv 
ana  the  nearer  reference  pla.nos  Woro  ;■  ai  irea  :.''o  t;:nt.-s.  'I'.he 

reauinas  of  these  coordinates  wa.'ie  thett  .O  taMm.;  ..in.t  tno‘  n.i  nital 
.iistance  between  the  averaaea  coordinates  ttr  eaoT,  r.'air  was  calcu¬ 
lated.  Dividina  each  of  these  iijital  cis  tam.'t.’.s  by  t.he  corre- 
.spo.udina  measured  dimensio.n  berwoten  fiduciais  yioldo'd  cc'nversion 
constants,  i.n  terms  of  "-.lounts  tintr  f',o,i",  i t  w.  ■  ;  lanes  normal  to 


e  1  ' 

.  fz  1  C  1.1  1  .’•»  J,  S  .  i  1 1. }  i  1 

1'  1  ■  - 

1 .  .  f  > 

:  :'i'.  :  r 

Mit '  ■  ‘  rv  *  ■ : 

r; 

■r;  t-  M  M  f. 

•  ii.d 

Z.  4'  j  il'.U  ri  MI'  cd  t.  !1  b.‘ 

.  'i . .. 

•  t  .  1 : : 

•  ‘  ^ ,  j  ;  j  .  . 

.  1 

■  (.‘S  1 

which  the  fiduciais  lay,  tdu-  disi..:;t'.-  .ilai,-:  ■  ;a.-  •  iical  a;-;.s  fror 
tht'  focal  point  of  the  lens  to  tiach  i.if  titese  ;.-iar.L;s  an, a  the  ;  lane 
of  symnietry  could  then  be  calculated,  (bee  f-tjuie  4, 

Prior  to  each  test  run  the  bre.idtli  c.  f  *  he  sub;’e('t  was 
r.casured  at  eacii  trackinq  fiducial  locati..'n  witn  ai:  a  n  th  t  ■  ua  r.e  1 1.' r 
Assumina  tiiat  each  subiect  was  syrracietr  1  c  1 1  ,  ttie  li.st.ince  fior  thu 
plane  of  symmetry  to  eacii  'rackino  ri  n:.-:  .•..o;  f  r;:''a  .a  'n.'- 

n.ilf  the  :m.’.isurcd  bfi'idth  .if  'h--  sui.O'-'  .-  1  ..o.ii;. 

Corn.'c  rs  ijn  '•;nstants  lot'  a  ich  ;da;o.  ;  1 :  .1  .  !  ■  .  ‘  •  h>  ;  '.c.-;  :  sy;-- 

::etny,  chus  no;:", til  t  C'  ‘hi.-  y  *■  ;  .-..i  1.  ‘  ■  1  ■  ;  n  :  ’■  i;.-; 


were  added  to  the  file.  This  file  was  then  copied  on  the  card 
punch  and  printer  as  a  time  saving  measure  in  case  the  disk  file 
should  be  accidentally  purged. 

At  this  point  the  program  HIFPD  could  have  been  attached 
and  executed;  however,  the  normal  procedure  was  to  obtain  the  card 
files  and  submit  them  in  the  batch  mode  on  an  overnight  schedule. 
This  permitted  the  connect  time  to  be  used  for  read-in  and  editing 
of  additional  data  files. 

Descriptions  of  specific  procedures  are  presented  in  later 
sections,  and  the  composition  of  a  deck  assembled  for  a  typical 
computer  run  is  illustrated  in  Figure  14. 

2.2.10  Description  of  Program  HIFPD  Input  Data  and  Parameter 

Codes 


I.  Program  Setup  Cards 

A)  The  first  card  in  the  setup  deck  must  contain  the 
date  in  columns  1  to  10;  for  example,  12  FEB  74  or  FEB  11,  74 
(only  one  date  card  per  job) . 

B)  The  following  four  or  five  cards  are  required  for 
each  test  in  the  computer  job: 

Card  Number  1 

Column  Forma t  Data  Description 

1-80  8A10  80  columns  of  alphanumeric  information  which  will 

be  printed  at  the  top  of  each  page. 


Card  Number  2 


1-  5  A5  Test  number 


6  11 

7  1 1 


IRX — flag  controlling  polarity  of  x-axis  data  - 

blank  or  0 - no  change 

1 - change  sign  of  x-axis  data 

IPR--flag  controlling  input  data  and  difference 

printout  -  blank  or  0 - print  data 

1 - omit  printout 
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Card  Number  2  (Continued) 

Column  Format  Data  Description 

59-60  12  NP--number  of  data  points  used  in  the  quadratic- 

fit.  NP  must  be  an  odd  number  3;  default 
is  NP=11. 

61-65  F5.0  DYLP--velccity  and  acceleration  linear  plot  sea 

increment  per  inch  (see  parameter  IPL) . 
Default  is  2.5,  5,  10,  20,  or  30  dependin 
on  the  range  of  the  data . 


Card  Number  2A  —  required  only  when  lADJ  >  0. 

1-10  FIO.O  Time  calibration — number  of  frames  per  second. 

May  be  left  blank  if  film  speed  is  500  frames 
per  second. 

11-20  FlO.O  SLED  calibration  in  counts  per  foot 

21-30  FlO.O  HIP  calibration  in  counts  per  foot* 

31-40  FlO.O  KNEE  calibration  in  counts  per  foot* 

41-50  FlO.O  SHOULDER  calibration  in  counts  per  foot* 

51-60  FlO.O  ELBOW  calibration  in  counts  per  foot* 

61-70  FlO.O  HEAD  POINT  1  calibration  in  counts  per  foot 

71-80  FlO.O  HEAD  POINT  2  calibration  in  counts  per  foot 

NOTE;  The  decimal  must  be  punched  in  the  above  data  fields 

unless  the  data  are  integer  and  are  right  justified. 


Card  Number  4 

1  11  9  in  column  1  to  indicate  the  end  of  test  input 

NOTE:  Cards  1,  2,  and  3  are  placed  in  front  of  the  test  deck 

and  card  4  is  placed  after  the  last  frame  in  the  test. 


C)  The  last  card  in  the  input  deck  (before  the  end  of 
job  card)  contains  the  word  "END"  in  columns  1  to  3 . 
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.  .  LK; sc r 

14  Frame  number 

':-LJ  17  reading  in  counts  for  Range  data 

i  '.“19  IT  z  reading  in  counts  for  Ran-re  data 

:0-2G  17  X  for  Sled 

2 ''-3  3  I’"  z  for  Sled 

34-40  17  X  for  Hip 

4  1.  ••  4  3  17  z  for  111,0 

;--3i  17  X  for  Knee 

j !.  1. '  z  for  Knee 

■  'c;rho^__2 

2-  j  14  Frame  number 

‘  '42  I'  X  rc'ud  in  T  1  r.  craUits  '.or  :  u  1  '  c 

;  '  1"  z  rt?at'Ln..:  rn  r  ,t  .  :■  r  : 

1  ■  X  for  liMbo'w 

'  '  1  '  z  f'  'r  1  bow 


Card  Number  2  (Continued) 

Coluran  Format  Data  Description 


41-47 

17 

z 

for 

Head 

Point 

1 

48-54 

17 

X 

for 

Head. 

Po  i  n  t 

•*» 

jL 

55-61 

17 

z 

for 

Head 

Point 

2 

IV.  Card  Formats  for  the  Test  Input  Data  Cards  for  rTV.-’F-^l 
Card  \'umiDer  i 


2-  5 

14 

Frame 

numbe  r 

6-12 

17 

x  reading 

in  counts 

for 

Ranee 

data 

13-19 

17 

z  reading 

in  counts 

for 

Range 

da  ta 

20-26 

17 

.<  for 

Sled 

27-33 

17 

->  <i-  ,s  r- 

Sled 

34-40 

±  / 

t  ,v  r 

ii'  ‘ad 

Pc  L  nt 

1 

41-47 

17 

.•  f  o- 

fie  a'  i 

F' )  i  n  t 

1 

48-54 

a  — 

i.  t 

re  r 

i;ea>.! 

f’o  : nt 

2 

55-61 

17 

■  for 

Head 

Point 

2 

NOTE:  For  ITYPE=1,  only  1  data  card  is  read  for  each  frame. 


V.  General  Comments 

A/  If  there  are  any  errors  in  frame  or  card  identi¬ 
fication  numbers,  error  statements  will  be  printed  at  the  top  of 
the  first  output  pace  for  the  test  and  all  computations  after  the 
listing  of  the  input  data  will  be  deleted. 

3)  A  maximum  of  At’)  frames  (MAXN)  will  be  road  for- 
each  test.  If  the  test  input  deck  contains  nvore  than  iOO  fr.imes, 
only  the  first  lOO  will  be  processf^d .  This  could  be  changed  ;v,- 
changing  MAXN  and  the  array  dimensions  in  the  p'rooram. 

C)  [f  the  calibration  factor  for  a  ■'ariaiile  js  mir-s- 

inq  flag  ICAL(J)  is  set  ecjual  to  zero  and  that  inarialilo  will  i  (;■ 
deleted  from  the  analysis. 
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Kach  of  the  volunteer  subjects  was  exposed  to  each,  laipact 
acce' ’  e  r..;  1  ij];  level  three  times;  once  with  ‘.he  riaid  hairnesa,  o:.  a 
With  an  operational  harness,  and  once  with  a  nylon  harries.s.  Ih'-- 
.iLomy  'which  wore  evaluated  consisted  of  throe  expcs'.;res  'o: 

-o  ii  ii'Oa'.'CS  and  th.ree  exposures  to  -10  G  imiiacts  .  The  ductr.'v' 
was  re  o  •- ‘'..i  !  noLi  by  chti  operational  harness  dariru:  oil  six  o  xp'os  a  re  f 

the  iinpaci  environments  were  developed  .;n  t::e  horioontJ.  i 
Impulse  I'll:  ce  lerator  Facility  located  in  Buildir,-.-  '*5  2  4  it  V.riyhl- 
[■■a  t  cc  1  O' Cl  1  r  Force  Base,  Ohio.  The  tests  were  cona,ic''Lei  by 

a,:..  ,h-.iicai  Kesearch  l.,aboratcr  y  ,  Biomeci.a;;:  Cc;i  1  rr:  t  ec  i  _  .jr. 
tiafich.  'v  .e'.FL  'uBl' )  (Known  at  the  time  as  Impact  B;.aii  n,  A.''.F.L  1  , 

:  ran  ;  •  cried  Fupteiriber  197f:  -  Jurur  19'/1. 

2  .  ;  .  1  Finn,  r'ements 

ai’ ihrepome  t  r  ic  pciints  spocit'ie'l  *a  he  «:ra(;!-.c;d  were 

the  icj.'..,  t;;  ■■  sirouluar,  the  elbow,  the  h;o.  .irac  'he  h  secen, 

point  or',  the  iiecia  was  also  specified  tor  i.*.'.-  p'urpc'n.  c;  t  trackinc 
its  annular  dis’placement  relative  to  the  first. 

In  accordance  with  Recommenced  P:  i.  tici’  Jl  ,8,  F'lE 

iiandbeck,  1175,  tiie  following  points  were  (-'ci  :  ; '--d  to  r-e  n;...  rkc;d 
with  t  1  v.i  ae  1.1  Is  . 

' !  <1  a  c;  (  hot  n  t  1 )  'Fh  e  T  r  a  c;  e  on. 

heaii  (Poinr.  1)  A  pnoint  approximat-:  Ip.  r.hree  '3;  inches 

( .'M  t  ornate  )  above  the  tragoon. 

(Poii'.t  2)  Outside  corner  of  9  iTanscucn'i’  .ACvn>l- 

erometei  Pack  (9TAT')  common  to  all  three 
legs  (Figure  15) . ■ 

-.'iioail  ier  The  most  lateral  :  loi' on  f' f  ‘h" 

acromicjn  procc's:';  tr;''  sc'iipo] 

Fibuw  The  most  lateral  [ir’'' (ect  icv.  o;  lie.' 

h  um.e  r  a  I  condyle. 

The  most  pr'iin  i  non  t  ;.,r'i  i  ■  t.  '  ' 'u- 

.;  t  y  I  if'n  . 

'pri'o  iost  <117  ml  ^  FfCt.,  1  9  t )  a  ti'i.ix';’  .. -i  ■.  c 


I 


W  S  I',  v I  i  i  L  L:  vi  ;  I'll 


D  J  .  /  iJ  •  . 


.•;  viZirnvir.i  r  t  i -t  /  vi^,.* 


I  w  1  .  i  ;  ^  c- 


■  wt'ire  me.'.:' ,  ■ 


I-  r?  r  Of”"  *  i  .•  PCj  1  n  tl  T  I .  \  1  •  r  ; }  f.  I  :  .  ^  ;  i  i  ' 


'i;.^  _ no  i :  • 


15.4,  2  8 . S ]  . 


:  z  :  1  ■ 


\.-  i_i  1  [  loi  tr  \.i  »-'  .'.  ,  \  I  •  - 


r:;a  I  runct:'/n  cf  the  rrintiry  aata  ca'  -i  ^  ti'aat 


i;.  I  . 'a.*  ..'  .tj'.*;  . 


1  ■.,  1  •■  1 L  rs 


i :  ■  ;  ■ ;  3  ;•;  ] 


la ■  e. 


.  :  ,To;::  of  v;nthrcpctot  r  i  c  •  : 

(,  i;  ai;L'  "r  o  t  . 

'.  ^  fioatial  ar'tlicat '  on  ,  rto  i '':;-o;’:i  .  ,  .a; 


■:.r:"  rcooroino  of  the  track  iro  .loco;  . 

•  ■.  !.  ana  roapC'nst;  cvci.t.a  . 

;T potne*:  ry  o.f  each  subject  was  measure.;  jrui  (,ioc 


.a.in.-j  iiducial  application,  measui  one;  i  am;  m'a.:ic;3t . 
•  ;  ishei'  ;  !'ic  ;■  tC'  each  rt;“sr  t.n  m  ;  hi  '  chi  repro- 
,  '-Lm:  fiih.cials  were  locatvoi  a,;  O'Oows. 


.  L  j  ;  ri’'.!  t;:  ei'  I 


:  1  .  ! 


t  o:.;  i  n  :  r  ct'S 


:; !  ;•'  I  *'  1  i  ■  'o  nvi'.’  1  (■  ,  s  t '/  1  i  ' 


In.  11  ,  : .  ; 


J 


TABLE  1 


DEFIMITIONS  OF  PRETEST  DATA  ITEMS 


I  tern  Definitions 

RS  Restraint  Harness  Material 

GN  Nominal  Impact  Accelerat;  or.  ' -C_J 
RN  Test  Number 

DT  Date  of  Test  (Year,  Month,  Day) 

1  Weight  (Kg) 

2  Height  of  head  band  fiducial  above  sled  deck 

3  Height  of  shoulder  above  sled  deck 

4  Height  of  iliac  crest  above  sled  deck 

5  Trageon  to  9TAP  origin 

6  Trageon  to  headband  fiducial  distance 

7  Shoulder  to  elbow  distance 

8  Elbow  to  wrist  distance 

9  Hip  to  iliac  crest  distance 

10  Hip  to  knee  distance 

11  Mid-thigh  to  knee  distance 

12  Knee  to  ankle  distance 

13  Breadth  at  trageons 

14  Breadth  at  shoulders 

15  Breadth  at  elbows 

16  Breadth  at  hips 

17  Breadth  at  knees 

18  Breadth  at  ankles 

19  Mid-shoulder  height.  Distance  along  seat  back  plane  from 
line  of  intercept  of  seat  pan  plane  and  seat  back  plane 

to  a  line  normal  to  the  seat  back  and  tanaent  to  the  upper 
surface  of  the  shoulder  at  the  centerline  of  the  left 
shoulder  strap. 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  A22 


h(, 


J 


xs:Jj-3Ud  JO 


SUMMARY  OF  PRETEST  DATA,  SUBJECT  B22 


CNi  rn  CD 


0 

0 

4r 

0 

cn 

m 

CT> 

in 

0 

cn 

■  ' 

CSJ 

r—i 

CM 

m 

•cr 

GTi 

rn 

m 

CO 

Ln 

cn 

CD 

0 

cO 

ro 

rv,. 

CSJ 

CD 

CM 

cn 

CO 

r— 1 

csi 

CM 

cr 

in 

a- 

fv-\ 

cC 

00 

Csi 

CO 

■=r 

0 

Cm 

0 

m 

c*,. 

-S' 

— i 

CD 

CT> 

m 

cn 

m 

CM 

CM 

cn 

cn 

<— I 

ur> 

JIT 

00 

(~> 

CD 

m 

m 

Cs. 

^■N 

_ _ 

CM 

IT 

CJ 

CT 

m 

Nn 

cD 

CD 

cD 

CD 

Cc( 

_ _ 

0 

cD 

cn 

cn 

<-> 

kO 

O 

cD 

cO 

<-si 

fn 

rs. 

00 

Nn 

CD 

CM 

Cm 

00 

CM 

cC 

*— « 

0 

86 

|V> 

Cv 

00 

m 

IT 

fn 

00 

»-H 

m 

CD 

CM 

Cm 

42, 

lX 

CM 

fM.* 

cr 

•5r 

Nn 

m* 

n 

0 

TT 

Nn 

fM. 

Nn 

rM 

rM 

(V^ 

■T 

cr 

m 

m 

CM 

CM 

00 

cn 

m 

0 

0 

n> 

m 

s-Nt 

CM 

CT» 

00 

0 

cn 

m 

0 

Cm 

cr. 

m. 

b*! 

< 

z 

cr 

rM 

nm 

cC 

^0 

<r 

78 

D" 

Nn 

cn 

Nn 

CD 

Cm 

un 

f-H 

fC 

cr 

un 

Cm 

CD 

•T 

Nn 

T 

cd’ 

LC. 

Cm 

IT 

CC 

Nn 

Pm 

CD 

0 

—  00 

0 

lT. 

N^ 

0 

cD 

0 

PM. 

un 

N^ 

0 

0 

Nn 

Cm 

Ns. 

cD 

IT 

Nn 

Nv 

Nm 

Pm 

T 

iD 

Nn 

Nn 

CC 

0 

Pm 

Ps.. 

LC 

00 

•cr 

CO 

00 

T 

Cm 

CC 

Cm 

Nn 

CD 

CM 

Nn 

3- 

un 

CM 

LO’ 

T 

•T 

Cm 

cr 

UD 

un 

0 

IT 

T 

Nn 

CO 

sn 

Pm 

sD 

UJ 

Q_  sXi 

00 

cn 

T 

IT 

T 

0 

cn 

cn 

cn 

cr 

Pm 

cn 

0 

0 

CM 

cn 

Pm 

cn 

CM 

Pm 

CM 

cn 

Pm 

00 

CO 

CD 

cD 

cn 

0 

Ns. 

Pm 

un 

00 

IT 

■-H 

Ns 

00 

un 

T 

PC 

u? 

Cm 

Nn 

cO 

CM 

un 

T 

IT 

un 

CM 

CD 

IT 

IT 

CM 

cr 

un 

cn 

Nn 

rsj 

Nn 

cr 

PN 

Pm 

UC 

0  0 

CD 

IT 

■cr 

•cr 

IT 

0 

00 

00 

(T* 

.3- 

•3“ 

O' 

Nn 

CO 

Nn 

PM 

T 

Nn 

cn 

TO 

Nn 

IT 

0 

cC 

CM 

un 

CM 

cb 

IT 

Nn 

CD 

CM 

CO 

PC 

i/n 

un 

Pm 

Cm 

PN 

N.S 

Nn 

CM 

iT 

CM 

cr 

•3- 

un 

IT 

Nn 

PN 

CD 

Z 

0 

00  ^ 

CM 

■S' 

•O' 

■T 

0 

IT 

<n 

Pm 

CM 

CM 

T 

cn 

0 

Nn 

<T* 

«D 

cn 

PM 

CM 

cn 

CM 

Nn 

cn 

CM 

CM 

un 

0 

un 

■3- 

Pm 

IT 

CM 

Pm 

CM 

CD 

.3- 

un 

un 

0 

ro 

un 

un 

" 

PM 

f 

f 

Nn 

CM 

0* 

CM 

3- 

'■H 

3- 

un 

IT 

pm 

rvn 

cD 

2: 


CD 

IT 

0 

•— H 

•d* 

■3- 

•3- 

0 

■O' 

Nn 

Pm 

PM 

00 

•3* 

CO 

cn 

0 

IT 

CO 

Nn 

TO 

Pm 

m 

CM 

r-i 

un 

IT 

Pm 

un 

PC 

Pm 

CD 

P<n 

un 

Ln 

PM 

PO 

p<n 

PM 

•—t 

fv^ 

sM 

IT 

CM 

IT 

.3- 

,.n 

hn 

CT, 

- 

CM 

rv^ 

•3- 

un 

cD 

00 

cn 

-r 

— 

n  J 

..X 

- 

t: 

SUMMARY  OF  PRETEST  DATA,  SUBJECT  B3 


SUMMARY  OF  PRETEST  DATA, 


Sl'MMARY  OF  PRETEST  DATA,  Sl'BJl'CT  C2 


2.3.4 


L5.  'XU' 


Photogrammetric  Calibration 

Calibration  of  conversion  constants  was  based  upon  the 
method  illustrated  in  Figure  4  .  The  fiducials  on  the  lexan  pane 
(y=  -32.062)  and  the  side  of  the  seat  pan  (y=  -8.0)  were  digitize 
and  the  average  conversion  factors  for  those  planes  were  calcu¬ 
lated  to  be  2787.13  counts  per  foot  (cpf)  and  1650.74  cpf  respec¬ 
tively  . 


Referring  to  Figure  4  the  following  values  were  ass 


no  ■ 


r  =  r._  =  1  foot 
o  02 


r  =  1650.74  counts 

P 


r  =  2787.13  counts 

p2 


s  -  s--  =  24.062  inches, 
o  0  2 


The  distance,  r,  from  the  axis  at  which  the  ray  from 
p^  to  the  focal  point  penetrated  the  object  2  plane  was  calculate 
to  be : 


_L_  =  ^ 

^^02  ^p2 


r=l 

r  = 


_  ^  ,1650.74  counts. 

foot  X  i  - r— ) 

2787.13  counts 

.592  foot  =  7.107  inches. 


The  apparent  distance  from  the  focal  point  to  the  plane 
y=  -8.0  inches  was  calculated  to  be: 


s 

o 


r 


o 


■02 


-r 


s 

o 


s 

o 


) 


24.062  inches 


i: 


4.893 


inches  ^ 
inches ' 


s  =  59.01  inches . 
o 


73 


plane 


Ca  J  :;!  la  t  1 '  m  'f  .i  ecnversion  constant,  f  ,  for  any 
y-n,  was  then  accoiap  1  Lsheti  usira: 


n 


___o _ 

s  +-  ('  P  -  V-  1 
o 


:<  16 ‘'0.7  4  'jounts  oer  foot 


A'h.en  y-n-one  lialf  tlie  measured  brenlth  cf  the  subject  be*-wecr.  an- 
thropcimetric  points  on  the  left  and  riuht  side. 

1  •  '■  •  he  d  'action  Process 

The  ilata  reduct  LC)n  process  consisted  of  data  editing, 
di.iitizina,  ind  electronic  data  processing.  Film  editing  and 
d  i  a  i  t  i  a  1  n-.:  wore  d'.o.'onpl  ished  on  the  Producers  Service  Corporation 
::/:dol  f'VP,  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
iTTV;  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing;  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division's  Digital  Computa¬ 
tion  Facility  lASD'AD)  in  Building  676,  Area  B,  Wr ight-Patterson 
Air  Force  Base. 

2 , 3 . 5  .  1  Editing 

The  primary  camera  film  was  viewed  on  a  light 
table  and  the  frames  and  .01  second  timing  pulses  were  counted 
throughout  the  event.  The  frame  exposure  rate  (frames  per  second) 
was  scanned  for  consistency  and  the  average  frame  rate  was  calcu¬ 
lated.  During  each  run  processed  the  frame  rat-,.  r  constant, 

+1  frame  per  second,  durinu  the  100  millisec  cq  -'lowinu  initia¬ 
tion.  During  the  p  roc  ram  fiJm  speeus  ran'ieci  fiom  46  2  to  49  S 
frames  second. 

Th(.’  film  was  mounted  on  the  PVR  and.  was  trans- 
portc’d  for'.vard  in  thf;>  cine  mode  until  the  operator  obser’.’ed  tliat 
'ihe  sub  -'i.-a;  -.p,  hid  appiarontly  terminati'd.  The  M\i".ber  c  t'o- 

::  i;’>'  w  i  s  sO.  i  is  *  e  rm  i  r  la  1 1  ■  u,  time. 
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The  identification  card  contained  alphanumeric 
iniorniation  in  cards  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RSD 

STUDY,  SUBJECT--,  RUN - ,  YYMMDD,  material.  The  next  to  last 

-’.try  IS  the  date  on  which  the  test  was  conducted  in  terms  of  year, 
inonth,  and  day  of  month. 

The  control  card  contained  the  test  number  and 
pro-jram.  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  in  Paragraph  2.2.10. 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
to  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of  co¬ 
ordinates  on  the  second  line  read  from  each  frame.  The  format 
mr  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/.^D  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation :  Film  frame  coordinate  positions 

L  the  tracked  points  were  converted  to  2  dimensional  seat  coordi¬ 
nate  time  histories  by  program  HIFPD. 

The  PCS  coordinate  readings  of  the  two  reference 
iiducials  from  the  first  film  frame  were  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PCS  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film,  frame  trans- 
l-itu’J  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  m.inimize  errors 
■  iue  to  vibration  of  the  camera  during  the  test  event. 
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tables  and  written  on  magnetic  tape  for  pl^t:.  in 

Plotting  :  Af  to r  e ;<a~ i r. .1  *:  1 ;  n 
results  of  the  computation  revealed  no  aiirarcn:- 
plot  request  was  submitted  to  .ASD.'AD.  Tlic  d.oui 
magnetic  tape  by  HIFPD  were  read  and  picttv":  f 
COMP  Plotter. 

2.3.6  Results  and  .Accuracy 

The  results  of  this  effort  were  deiive 
tories  of  displacement,  velocity  and  arcelo."i!,i 
graphic  forms. 

Analysis  of  the  iirciijca;  ^  n.  err  ; 

points  resulted  i:i  a  m.a;-:imum  es  t  1  :;.a  ti.c';  o 

points  except  the  elbow.  “  Furip.';  all  t.'c'  ;  r. 
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extremities  extended  forward  from  the  seat.  These  lateral  excur¬ 
sions  of  the  elbows  caused  tlie  breadth  across  the  elbows  to  arrroii 
but  not  become  less  than,  the  breau  n  across  the  shoulders  at  maxi¬ 
mum  extension  of  the  arms.  The  mean  of  the  m:axim.um  lateral  euicur- 
sion  of  the  elbows  was  1.96  inches  from  a  mean  lateral  iisulacem.er;! 
mr  1.0.84  inches  fromi  the  plane  of  symmetry  to  8.38  inches.  llie 
estimated  error  in  solutions  to  elbow  coordinates  at  mia:-:ir. e;-:- 
tension  of  the  arms  was  0.23  inches. 

From  a  study  conducted  by  H.  T.  Mohlman  of  the  L'D.-I  ,  tr.e 
effects  of  smoothina  the  raw  solutions  and  the  first  and  second 
derivatives  may  be  summarized  as  follows: 

(1)  Attenuation  of  peak  values  of  displacement,  '.'eiccity 
and  acceleration  is  a  function  of  frccuency. 

(2)  The  eleven  point  quadratic  fit  yields  closer  correla¬ 
tion  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

(3)  The  attenuation  of  any  specific  displacement,  velocit 
or  acceleration  peak  would  be  reasonably  predictable 
if  the  frequency  of  the  peak  could  be  properly  inter¬ 
preted.  A  technique  used  to  evaluate  the  frequency 
response  characteristics  of  the  smoothi.nq  filter  is 
described  in  a  later  section  (page  115}  and  is  de¬ 
tailed  in  the  above  reference  report. 

i4)  V'sc  illations  in  velocity  and  acceleration  curves  are 
preuominatly  artifacts  induced  in  the  smoothinc  fit. 

Tlio  :'u  f rcnced  work  included  ^nvestication  of  sairplinu 
theory  and  application  of  the  quadratic  fits  to  diaitized  photo- 
m.etric  lata  acquired  during  BPRD  tests  172  and  173. 

The  accuracy  of  the  digitizinc;  was  checked  usina  the 
standard  deviation  about  the  mean  for  the  solution  of  the  roar 
.seat  reference  point  with  respect  to  the  forward  roterence  p-oiot. 
The  standard  deviations  were: 


•.  ot.d;.  :,i i r. ,  !,■.  ir.  ~r.c:  i;a.-npie,  0.0044  feet, 

!  ;  .o.jnt.ri  which  is  consider- 

*?  sta’-.cc!  ;  do-.' la  r  K'n  used  to  estimate 

T.he  effect  cf  smocthi;!.:  the  displacement  solutions  of  the 
;.;i:.ts  are  indicated  in  Table  11,  -which  presents  the  stan- 
i-iticns  of  t.he  difference  between  unsmeothed  and  smoothed 
ts  r  t  one  ai.cp  luce.ments  taken  fr-im,  a  representatio^e  sample 
fcsts.  The  resultant  stancard  de-.'iations  in  the  samp].e 
o:-  .029  ir.ch  (te.sr.  x.:4C,  hiri  to  -0.052  inch  (test  993, 

.'.t  1,  ,  -were  .ocirisiderably  less  th.an  t.he  estimated  maximum 
0.12  inch. 

-50  0  ,  li.JURV  PROTECTK  COMrARISON 

C..idavor  s-ubject:-  have  been  widely-  used  to  assess  patterns 
r  1  t-y  n.-ury  res-ultinc  from  exposure  to  impact  environ- 

These  .-essments  riave  been  used  as  the  basis  for  predict- 
rob  ab  i  0,  i  t'/  of  inj-ury  to  livina  beinns  who  might  be  sub- 
c  similar  envi ronmu-nts .  .An  investiaation  of  t.he  reliability 
.p.'.  r'  ach  to  i.;;-ury  protection  assessments  was  required  to 
:e;--'.^ts  bet-.veen  li'/inc  .s-ubiects  and  cadavers. 


TABI.E  1  1 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMtXITHED  D I  SI>  l.ACEMI.NT  IN  FIN' 
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The  Impact  Protection  Branch  of  the  Aerospace  Medical  Re¬ 
search  Laboratory  (AMRL/BBP)  conducted  a  test  program  to  compare 
the  responses  of  live  anesthetized  baboons  with  those  of  baboon 
cadavers.  The  intent  was  to  match  live  animals  with  cadavers  of 
similar  anthropometry  in  pairs  for  comparative  analysis.  The  data 
presented  herein  were  derived  from  cinematographic  recordings  of 
the  body  segment  responses  of  the  subjects  during  -50  simula¬ 
tions  conducted  on  the  AMRL/BBP  Horizontal  Impulse  Accelerator 
Facility  during  December  1977  and  the  AMRL/BBP  Hydraulic  Decelerator 
Facility  during  May  1978.  These  facilities  are  both  located  at 
AMRL/BBP,  Wright-Patterson  Air  Force  Base,  Ohio. 

Eighteen  tests  were  conducted  on  the  Horizontal  Im.pulse 
Accelerator  Facility.  Six  tests  were  conducted  using  a  scaled 
three-point  harness,  three  (1444  thru  1447)  involved  live  anes¬ 
thetized  subjects,  and  three  (1449  thru  1451)  involved  cadavers. 

A  camera  malfunction  during  test  1446  resulted  in  loss  of  photo 
data  from  that  test. 

Six  live  anesthetized  subjects  (tests  1453,  1454,  1456, 
1457,  1459  and  1460)  and  six  cadavers  (tests  1462,  1463,  1464, 

1466,  1467,  and  1468)  were  exposed  to  the  impact  environment 
while  restrained  with  a  military  type  harness.  Photometric  data 
from  these  twelve  tests  was  good  and  was  reduced. 

During  the  -50  simulations  conducted  on  the  Hydraulic 
Decelerator  Facility  in  May  '.979,  six  live  anesthetized  subjects 
(tests  103,  104,  105,  106,  108,  and  109)  and  six  cadavers  (tests 
110,  111,  113,  114,  115,  and  116)  were  exposed  while  restrained 
with  a  military  type  harness.  Because  of  a  camera  malfunction 
during  test  110,  photometric  descriptions  of  the  responses  of 
only  five  cadavers  were  available  for  comparison. 

2.4.1  Requirements 

Primary  requirements  of  the  photometric  data  analysis 
effort  were  to  derive,  from  cinematographic  recordings,  time 
histories  of  coordinate  positions,  velocities,  and  accelerations 
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positive  to  the  right  of  the  seat  along  the  horizontal  line,  and 
the  z-axis  was  positive  upward  along  the  zenith  line. 

The  Photosonics  model  IB  cameras,  with  8mrn  lenses,  were 
mounted  onboard  the  sled.  The  primary  data  camera  was  mounted 
with  its  focal  point  at  coordinates  (11.84,  53.12,  3.88)  inches. 

Its  optical  axis  was  normal  to  the  plane  of  symmetry  of  the  seat. 
The  front  view  camera  was  mounted  with  its  focal  point  at  coordi¬ 
nates  (63.65,  0.75,  4.0)  inches.  Its  optical  axis  was  parallel 
to  the  X  axis. 

Seat  reference  fiducials  were  applied  to  the  RH  side  of 
the  seat  frame  structure  at  coordinates  (2.28,  5.88,  -3.7)  inches 
and  (10.70,  5.88,  -4.29)  inches. 

2.4.3  Photoqrammetric  Calibration 

Review  of  films  of  the  first  tests  demonstrated  severe 
"barrel"  distortion  of  the  image  (magnification  decreased  as  dis¬ 
tance  from  the  optical  axis  increased).  A  grid  board,  made  of 
flat  black  plywood  with  a  1-inch  by  1-inch  grid  of  white  threads, 
was  held  with  its  face  in  the  plane  y=0  and  was  photographed  on 
the  primary  data  camera.  The  grid  board  was  then  held  with  its 
face  in  the  plane  x=.5  inch  and  was  photographed  on  the  front  view 
camera . 

The  film  image  recorded  on  the  primary  data  camera  (side 
view)  was  mounted  on  the  Producers  Service  Corporation  model  PVR 
film  analyzer.  The  grid  system  was  rotated  until  the  horizontal 
grid  line  closest  to  the  x-axis  and  the  vertical  grid  line  closest 
to  the  y-axis  were  parallel  to  the  respective  axis. 

The  intersections  of  the  vertical  grid  line  images  and 
!  the  x-axis  were  digitized  from  the  line  which  coincided  with  the 

y-axis  to  the  grid  line  32  inches  forward  from  it.  This  was  re¬ 
plicated  twice  and  the  three  sets  of  readings  were  averaoed.  Vhe 
average  readings  were  p’otted  versus  grid  board  displacement 
(Figure  18).  Since  program  rilFPD  was  used  to  process  the  data, 
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Figure  18.  Average  and  Modified  -SOGj^  Readings  Versus 
Grid  Displacement. 


It  was  incumbent  that  the  readinus  be  t'.  : ^ri'.-'cr. t  •.  I::.' 

relationship  between  observed  point  distance  from  the  u:  1 1  c  a  I  a;:,:' 
and  corrected  image  distance  from  the  optical  axis. 

As  IS  the  case  with  most  fine  wid.e  angle  lenses,  tl'ic 
linear  displacement  of  an  image  point  from  the  optical  axis  apprtxi 
mated  a  direct  relationship  to  angular  displacement  from  the  opti¬ 
cal  a.xis  to  the  line  from  the  focal  point  to  the  observed  point. 

From  readings  of  gr j.d  lines  in  the  relatively  undistcrted 

central  portion  of  the  image  frame  (cos  .  •  .99)  an.d  the  ficucval.s 

on  the  seat  frame  structure,  the  apparent  distance  from  the  focal 

point  to  the  grid  was  calculated  to  be  60.6  3  inches  by  the  rr.ethed 

illustrated  in  Figure  4.  Using  an  arc  of  radius  60.63  inches 

each  reading  was  modified  by  dividing  bv  the  cosine  of  tfie  ancle 

between  the  optical  axis  and  the  ray  from  the  observed  point.  A 

conversion  factor  was  calculated  in  terms  of  counts  read  per  inch 

grid  displacement  for  each  point.  The  best  straight  line  fit  to 

the  resulting  conversion  factors  was  calculated  to  be  136.1  counts 

per  inch  (1633.2  counts  per  foot) .  The  coefficient  of  determina- 
2 

tion  (r  )  and  correlation  coefficient  (r)  each  exceeded  .9999. 
Application  of  this  conversion  constant  to  the  modified  readmes 
resulted  in  solutions  within  +  .10  inch.  These  results  are  tabu¬ 
lated  in  Table  12  and  plotted  in  Figure  13.  The  mean  of  the  error. =. 
was  .0206  inch  and  the  standard  deviation  was  .0345  inch. 

2.4.4  Data  Acquisition 

Prior  to  the  start  of  the  test  proaram  ranae  survey  data, 
presented  in  the  Photometric  Range  section,  worfi  measured  anci  re¬ 
corded  . 

During  preparation  for  each  '3ata  run, 
marked  on  the  anthropometric  .ojints  to  ht-  t:  i.  P  ■ 

were  applied  with  a  bL.u'k  feit.  r  i  :,arfO  r  ''(•  ii;,  ;  i  -  : 

fii-iucials  had  been  f'^vind  to  e  l  t  ••o  i  ■■  idir  ‘o  '1.'  'u-v  r.  ' 
sub  ]<^c1;s 
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The  anthropometric  sittinq  heiqht  of  the  subject  was 
measured  while  the  subject  was  lying  on  its  side.  The  measure- 
mLent  was  taken  from  the  lower  base  of  the  tail  to  the  level  of 
the  brow  ridge. 

After  the  subject  was  positioned  and  the  harness  preten- 
sioned,  the  lengths  of  the  body  segments  and  breadths  at  the 
shoulder,  elbow,  and  knee  fiducials  were  measured  ana  recorded. 

The  sitting  height  was  again  measured  from  the  seat  pan  to  the 
brow  ridge  along  a  line  parallel  to  the  seat  back.  These  data 
along  with  subject  and  run  signature  data  were  recorded  on  a 
pretest  measurements  form.  The  data  are  defined  in  Table  13  and 
are  presented  in  Tables  14  thru  16. 

Cinematographic  recordings  of  the  subject  were  made  on  the 
cameras  described  in  the  Photometric  Range  section.  The  data 
cameras  were  operated  at  a  nominal  speed  of  five  hundred  (500) 
frames  per  second  from  time  t=  -2.0  to  t=  +2.0  seconds.  Timing 
on  the  films  was  accomplished  by  a  pulsed  light  emitting  diode 
(LED)  driven  at  100  pulses  per  second.  Synchronization  was  accom¬ 
plished  by  a  strobe  flash  triggered  by  a  t=0  pulse  simultaneously 
recorded  on  the  electronic  data  acquisition  system. 

2.4.5  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape-to-card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  system  at  the  Aeronautical  System.s  Division's  Diaital  Computa¬ 
tion  Facility  (ASD/AD)  ir  Building  676,  Area  B,  Wmht-Patterson 
A:,  r'vrce  Pas’j,  Ohio. 


TABLE  13 

PRETEST  MEASUREMENTS 


Data  Item  Definition 


1  Test  Run  Number. 

2  Date  of  Test  Run. 


3 

4 

5 

6 


Subject  Identification. 
Weight  of  Subject  (lbs) . 


Sitting  Height  (cm) 
to  brow  ridge. 


measured  from  seat  pan  surface 
parallel  with  seat  back  plane. 


Distance  (cm)  in  x-z  plane  between  tip  of  snout  and 
center  of  head  accelerometer  pack  mounting 
screw. 


7  Distance  (cm)  in  x-z  plane  between  center  of  head 

accelerometer  pack  mounting  screw  and  jaw  hinge 
point. 

8  Distance  (cm)  in  x-z  plane  between  jaw  hinge  point 

and  shoulder  point. 

9  Distance  (cm)  between  the  shoulder  point  and  the 

hip  point. 


10 

Distance  (cm) 
point . 

between  the  shoulder  point 

and  elbow 

11 

Distance  (cm) 

between  hip  point  and  knee 

point . 

12,  13 

Anthropometric  sitting  height  (12  cm; 
Measured  from  lower  base  of  tail 
while  subject  lying  on  side. 

13 

to 

in)  . 

brow  ridge 

14 

Breadth  (cm) 

across  shoulder  points. 

15 

Breadth  (cm) 

across  elbow  points. 

16 

Breadth  (cm) 

across  knees. 
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TABLE  ^6  A. 

IPC  PRETEST  MEASUREMENTS  LVJE  SUBJECTS  MIL  HARDNESS,  TECELEPATCR 


1 

103 

104 

105 

106 

10  3 

109 

- 

’30503 

'80503 

730503 

'30503 

730504  ’ 

3050 

3 

7  6  3 

F’3 

F76 

F86 

F66 

F64 

4 

30 . 0 

51.0 

51.5 

47.25 

r  ^  c 

50  .  5 

5 

6  6.4 

70.5 

68  .  ' 

66.6 

65.9 

6  6.6 

6 

3 . 9 

■  .  4 

7 . 3 

7 . 9 

7 . 7 

10.2 

9.7 

11.1 

10.9 

3.3 

10 . 7 

9  .  ' 

3 

16.5 

14  .  1 

.4  .  a 

1'  .2 

i  3 . 4 

15.2 

9 

39  .  1 

40.0 

40.0 

37.9 

39.4 

39.0 

:r 

22  .  4 

23.2 

24.1 

2  ’  ’ 

20.6 

23.0 

11 

27.9 

26.9 

26.3 

22.0 

21.5 

25.6 

i: 

’1.1 

6  7.3 

68.6 

64.3 

67.  3 

'0.5 

13 

28  .  0 

26.75 

2  7 

25.5 

26.5 

17 

14 

2  2.4 

20.2 

*»  1 

19.2 

21 . 4 

22.1 

ii 

22.9 

2  3.1 

28.0 

26.1 

27.2 

29.0 

16 

20.5 

9.0 

21.3 

25.7 

26 . 1 

15  . 1 

TABLE 

16B 

:?C  PRETEST 

.MEASUREMENTS  C 

ACAV'ER  9 

VBJECTS  MI 

L  HARNESS 

,  OE 

p 

110 

111 

113 

114 

115 

116 

2 

’80504 

730504 

780505 

'90505 

7  3  0  5  0  5  ■ 

3050 

3 

F82 

F34 

FSO 

F’2 

F'O 

F'4 

4 

45.75 

53.5 

51.25 

48.0 

46 . 0 

5  6.0 

5 

64 . 0 

~  j  .  z 

67.2 

7  1.9 

6  "  .  4 

■0.5 

6 

9.0 

4.0 

3  .  1 

6 . 5 

9.0 

3  .  9 

\ 

3  .  ’ 

*  C"- 

3  .  3 

’  .  5 

3 . 5 

9  .  4 

13.' 

14  .  j 

16,0 

17  .  3 

'  9 

( 

38 . 9 

4  :  .  ■> 

.  5  .  : 

43.0 

39 . 5 

4  D  .  1 

1  10 

21.6 

Z2  .  " 

2  0  .  ’ 

;s  .0 

2  3.3 

:i.o 

i  11 

24.0 

26.5 

20.6 

23.2 

26.0 

:  12 

64.8 

*47  .  3 

6  3.5 

70.5 

69 . 8 

n9 . 2 

1  13 

.35.5 

26 . 5 

25.0 

27  .  '5 

27  .  5 

:  “ .  2 

14 

21.0 

19.  5 

20 . 6 

.1.3 

21  .  ’ 

21.4 

15 

24.6 

30.3 

32  .  7 

24 . 2 

-  C  ~ 

'  C  ■ 

)  ,  ^ 

i 

19.5 

23.  0 

14.0 

19.3 

2  '  .  i 

L 


2 . 4 . 5 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on 
a  light  table  and  the  frames  and  0.01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames 
per  second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated.  During  the  test  program  the  film  speed  ranged 
between  485  and  515  frames  per  second.  During  each  test  run  the 
film  speed  was  constant  +1  frame  per  second,  during  the  200  milli¬ 
seconds  following  initiation. 

2. 4. 5.2  Digitizing 

The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed.  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  the  seat  forward 
and  aft  fiducials  were  read  to  be  within  +20  counts  of  (-150, 
-1370)  and  (-1310,  -1300)  respectively.  The  projected  image 
coordinates  were  then  digitized  in  the  following  sequence. 

1.  Seat  forward  fiducial 

2 .  Seat  aft  fiducial 

3.  Hip  fiducial 

4.  Knee  fiducial 

5.  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Head  accelerometer  pack 

8 .  Tip  of  snout 

The  digital  values  of  these  coordinates,  pre- 
ceeded  by  the  frame  number,  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/I5,  8F7.0).  Each  of  the  8F7.0  fields  contained 
four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame  zero 
were  digitized,  the  coordinates  from  each  succeeding  frame  were 
digitized  in  the  same  sequence  until  the  frame  in  which  either  of 
the  head  point  images  was  obscured  by  the  arm  image. 
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2.4.5. 3 


Electronic  Data  Processing 


This  portion  of  the  process  required  three 
procedures,  data  preparation,  computation,  and  plotting. 

Data  Preparation:  During  the  data  preparation 
procedure,  the  Tile  recorded  on  punched  paper  tape  was  communi¬ 
cated  to  the  computer  at  ASD/AD  from  a  TTV  via  voice  quality 
lilies.  I’he  file  was  then  edited  to  correct  format  and/cr  charac¬ 
ter  errors.  Program  CHIFPD  was  then  attached  to  modify  the 
readings  to  co'mpensate  foi  distortion.  CHIFPD  (Appendix  D)  cal¬ 
culated  the  resultant  distance-  from  the  origin  of  each  pair  of 
PCS  coordinates  read  in  by 


The  angle  (y)  between  the  ray  from  the  point 
and  the  optical  axis  was  then  calculated  by 

r 

“  K 

where  K  was  input,  as  138.7  counts/degree. 

The  modified  abscissa  (x  )  was  determined  by 

c 

X 

X  -  -  , 

C  COSY 


and  the  modified  ordinate  (y  ,)  was  calculated  by 


Y  ^  —1— 
c  COSY 


The  output  was  batched  to  a  printer  and  a 
card  punch  for  creation  of  the  permanent  file.  Concurrently,  the 
identification,  control,  and  conversion  constant  cards  required 
by  program  HIFPD  were  punched  for  merger  with  the  card  file. 
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The  identification  card  contained  . Iphanumeric 
information  in  card  columns  (cc)  1  through  80  which  was  printed 
on  output  tables  as  table  identification.  The  form  used  was  IPC 
TEST  - ,  IMPULSE  ACCELERATOR  (DECELERATOR) . 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes . " 

The  conversion  constant  card  contained  the 
film  speed  (frames  per  second)  and  conversion  constants  to  be 
applied  to  the  second,  third  and  fourth  pairs  of  coordinates  on 
the  first  line  read  from  each  frame,  and  the  first  through  fourth 
pairs  of  coordinates  on  the  second  line  read  from  each  frame. 

The  format  for  this  card  was  (8F10.0). 

Upon  receipt  of  the  card  file  of  modified  PCS 
coordinate  readings,  it  was  merged  with  the  previously  punched 
ID,  control  and  constant  cards,  and  the  computer  control  cards 
for  submission,  to  ASD/AD  for  computation.  The  composition  of  a 
typical  computer  runs  deck  is  illustrated  in  Figure  14. 

Computation;  Film  frame  coordinate  positions 
of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD. 

The  PCS  coordinate  readings  of  the  two  reference 
fiducials  from  the  first  film  frame  are  used  as  the  basis  for  the 
location  of  optical  axis  relative  to  the  reference  points  and  for 
the  angular  relationship  between  the  axes  of  the  PSC  and  the  SCS . 
Readings  of  these  points  from  each  subsequent  film  frame  trans¬ 
lated  and  rotated  the  PCS  coordinate  system  to  coincide  with  the 
orientation  of  the  first  frame.  This  was  done  to  minimize  errors 
due  to  vibration  of  the  camera  during  the  test  event  and  to  com¬ 
pensate  for  frame  to  frame  variations  caused  by  the  rotating  prism. 
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The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  through 
20  in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  sxabtracted  from  the  x  and  z  coordinates  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  relative 
to  the  reference  point.  Thus  the  origin  of  the  calculated  coordi¬ 
nate  system  had  been  translated  to  the  location  of  the  aft  seat 
reference  fiducial. 

From  the  time  histories  of  seat  coordinate 
positions,  HIFPD  computed  total  velocity  and  acceleration  time 
histories  of  each  point,  fitting  a  moving  quadratic  arc  to  eleven 
points  during  each  differentiation,  and  the  angular  velocity  and 
acceleration  time  histories  of  the  head  accelerometer  about  the 
snout,  and  of  the  shoulder  about  the  hip  point,  again  fitting  a 
moving  quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting;  After  examination  of  the  tabulated 
results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2.4.6  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms. 

In  the  data  report  deficiencies  in  the  derivations  of 
velocity  and  acceleration  time  histories  were  cited.  These 
deficiencies  and  a  brief  description  of  the  analyses  upon  which 
they  were  based  were  presented  in  Paragraph  2.3.6. 
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The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  rear 
seat  reference  point  with  respect  to  the  forward  reference  point. 
The  standard  deviations  were: 


Run 

x-Axis 

(feet) 

z-Axis 

(feet) 

1444 

.0035 

.0002 

1447 

.0035 

.0002 

1450 

.0017 

.0001 

1451 

.0108 

.0005 

1453 

.0021 

.0001 

1456 

.0036 

.0002 

1462 

.0027 

.0001 

1466 

.0019 

.0001 

105 

.0036 

.0002 

109 

.0053 

.0002 

111 

.0046 

.0002 

115 

.0030 

.0001 

The  effect  of  smoothing  the  displacement  solutions  of  the 
tracked  points  are  indicated  in  Table  17,  which  presents  the  stan¬ 
dard  deviations  of  the  difference  between  unsmoothed  and  smoothed 
components  of  the  displacements  taken  from  a  representative  sample 
of  the  tests . 

2.5  UPPER  TORSO  RETRACTION 

The  survivability  of  emergency  escape  from  aircraft  has 
historically  been  a  primary  concern  of  the  United  States  Air  Force. 
Over  the  years,  as  aircraft  performance  has  been  improved,  the 
risk  of  injury,  either  fatal  or  disabling,  has  tended  to  increase. 
Research  efforts  leading  to  the  development  of  devices  and  systems 
to  provide  improved  injury  protection  and  reduction  of  risk,  and 
evaluation  of  the  products  of  these  efforts,  have  continuously  been 
conducted  and/or  sponsored  by  the  Air  Force. 
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TABLE  17A 


''TANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  ONSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  LIVE  SUBJECTS 


TEST  1444  TEST  1447 


x-axis 

z~axis 

x-axis 

z-axis 

Hip 

.0032 

.0017 

.0063 

.0049 

iCnee 

,0025 

.0032 

.0085 

.0061 

SliDuldtir 

.0037 

.0031 

.0137 

.0129 

Elbow 

.0031 

.0099 

.0072 

.0112 

Head  Point  1 

.0135 

.0086 

.0110 

.0075 

Head  Point  2 

.0081 

.0064 

.0132 

.0166 

TABLE  17B 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  THREE  POINT  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

1450 

TEST 

1451 

x-axis 

z-axis 

x-axis 

Z-axis 

Hip 

.0018 

.0017 

.0105 

.0041 

Knee 

.0033 

.0028 

.0104 

.0069 

Shoulder 

.0095 

.0096 

.0169 

.0103 

Elbow 

.0083 

.0042 

.0147 

.0112 

Head  Point  1 

.0092 

.0101 

.0223 

.0109 

Head  Point  2 

.0163 

.0107 

.0252 

.0137 
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TABLE  17C 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
DATA  IN  FEET  MILITARY  RESTRAINT,  LIVE  SUBJECTS 


TEST 

x-axis 

1453 

z-axis 

TEST 

x-axis 

1456 

z-axis 

Hip 

.0023 

.0024 

.0031 

.0034 

Knee 

.0056 

.0050 

.0038 

.0039 

Shoulder 

.0140 

.0049 

.0104 

.0052 

Elbow 

.0100 

.0052 

.00  34 

.0033 

Head  Point  1 

.0033 

.0062 

.0101 

.0089 

Head  Point  2 

.0139 

.0081 

.0153 

.0195 

TABLE  17D 

STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 
IN  FEET  MILITARY  RESTRAINT,  CADAVER  SUBJECTS 


TEST 

x-axis 

1462 

Z-axis 

TEST 

x-axis 

1466 

Z-axis 

Hip 

.0027 

.0021 

.0029 

.0028 

Knee 

.0034 

.0022 

.0032 

.0040 

Shoulder 

.0063 

.0026 

.0153 

.0084 

Elbow 

.0039 

.0033 

.0067 

.0069 

Head  Point 

1 

.0081 

.0032 

.0099 

.0066 

Head  Point 

2 

.0078 

.0024 

.0093 

.0048 

99 


STANDARD  DEVIATION  OP  DIFFERENCE  BETWEEN  UNSMOOTHED  AND  SMOOTHED  DISPLACEMENT 

DATA  IN  FEET 
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In  an  ejection  environment,  emphasis  must  be  placed  on 
the  method  of  positioning  and  restraining  the  torso,  head,  and 
extremities  of  the  crewman  in  his  seat.  Ideally  the  crewman 
would  be  restrained  in  such  a  manner  that  during  an  ejection  event, 
he  would  demonstrate  no  motion  relative  to  the  seat.  A  crewman, 
however,  also  requires  freedom  of  movement  to  perform  his  tasks. 

The  obvious  solution  was  the  development  of  a  restraint  system 
which  would  provide  the  required  freedom  of  movement  but  which  in 
an  emergency  situation  would  rapidly  retract  the  crewman  into 
position  and  restrain  him  with  force  sufficient  to  protect  him 
from  responding  adversely  to  the  acceleration  of  the  seat  and  the 
force  of  windblast. 

The  work  described  herein  was  accomplished  to  demonstrate 
a  photo  analysis  method  proposed  for  use  to  describe  the  response 
motion  of  body  segments  of  human  subjects  exposed  to  the  upper 
torso  retraction  environment.  Laboratory  simulations  were  con¬ 
ducted  by  the  Biomechanical  Protection  Branch  of  the  AF  .Aero¬ 
space  Medical  Research  Laboratory  (AMRL/BBP)  during  the  period 
January  -  May  1978.  The  tests  were  conducted  on  the  Body  Position¬ 
ing  Restraint  Device  (BPRD)  located  in  Building  824,  Wright- 
Patterson  Air  Force  Base,  Ohio. 


2.5.1 


Requirements 


Primary  objectives  of  the  photometric  effort  were: 


(1)  To  describe  position-time  histories  of  anthropometric 
points  defining  the  body  segments  relative  to  the 
test  device  seat,  and  to  derive  velocity  and  accelera¬ 
tion  time  histories  of  these  points. 


(2)  To  derive  time  histories  of  angular  velocity  and 

angular  acceleration  of  the  head  about  its  y  axis. 


(3)  To  derive  time  histories  of  angular  velocity  and 

angular  acceleration  of  the  helmet  about  its  y  axis. 
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(4)  To  describe  the  position-time  history  of  the  retrac¬ 
tion  piston  and  to  derive  time  histories  of  its 
velocity  and  acceleration. 

Secondary  objectives  of  this  effort  were; 

(1)  To  record  motion  of  the  shoulder  harness  relative 
to  the  subject's  sternum  for  the  purpose  of  assess¬ 
ing  slippage  of  the  harness  relative  to  the  chest 
and  shoulders. 

(2)  To  record  the  test  event  from  a  number  of  viewpoints 
sufficient  to  demonstrate  restraint  system  and  sub¬ 
ject  performance. 

The  body  segment  motions  specified  for  description  were 
the  upper  arm,  the  upper  leg,  the  torso  and  the  head.  The  points 
selected  to  define  these  segments  were: 

upper  arm:  The  lateral-most  projection  of  the  acromion 
process  of  the  scapula  and  the  lateral  most 
point  on  the  lateral  humeral  condyle. 

upper  leg:  The  lateral-most  point  on  the  greater  femoral 
trochanter  and  the  lateral  most  point  on  the 
lateral  femoral  condyle. 

torso  :  The  lateral-most  point  on  the  greater  femoral 
trochanter  and  the  spinous  process  of  the 
seventh  cervical  vertebra  (C-7) ,  which  overlies 
the  first  thoracic  vertebra  (T-1)  when  the  head 
is  erect. 

head  :  The  point  located  on  the  sagittal  plane  of  the 

nose  at  the  level  of  the  pupils  (which  is  the 
rhinion) . 

It  was  the  concensus  that  in  addition  to  the  above,  the 
lower  leg  and  lower  arm  should  also  be  defined  although  definition 
of  these  segments  was  not  a  current  requirement.  The  former  was 
defined  by  the  lateral  projection  of  the  lateral  malleolus  of  the 


tibula,  and  the  latter  was  defined  by  the  1  a  tera  l-nsos  t  point  on  the 
lateral  humeral  condyle  and  the  sty  lion. 

Selection  of  all  the  above  points  was  influenced  by  two 
pri:-  iry  concerns: 

(1)  The  requirement  that  the  points  could  rtipeatedly  be 
located . 

(2)  The  requirement  that  the  points,  or  fixtures  iden¬ 
tifying  the  points,  be  observable  throuchout  the 
test  event. 

All  of  the  points  kioscribed  above  are  widely  accepted  as 
recommended  points  for  defininc  body  segments  with  t.he  exception 
of  the  points  on  the  head.  The  points  •  n  the  head  were  selected 
because  the  helmet,  toaether  with  the  cupped  chin  strap,  left  only 
the  forward  facial  area  exposed.  The  j.-omts  or  tr.e  nose  were 
considered  to  be  t.he  only  practical  points  on  the  head  which  would 
satisfy  the  above  requirements. 

2.5.2  Photometric  Range 

The  photometric  range  as  illustrated  in  Figure  19,  was  a 
three  dimensional,  perpendicular  coordinate  system,  the  origin  of 
which  was  at  the  intercept  of  the  seatback  plane,  the  seatpan 
plane,  and  the  plane  of  symmetry  of  the  seat.  The  z  axis  was 
positive  upward  along  the  centerline  of  the  seatback,  the  x  axis 
was  positive  forward  along  the  line  normal  tc  the  se'tback  plane, 
and  y  was  positive  to  the  right  of  the  seat. 

Reference  fiducials  were  affixed  to  the  se^  t  structure, 
ten  on  the  RH  side  panel  and  nine  on  forward  facing  surfaces. 

Three  additional  fiducia’s  i20,  21,  22)  were  applied  to  the  cut- 
board  surface  of  the  Ri!  side  of  the  test  facility  frame  structure 
forward  of  the  seat.  The  points  are  identi^'ied  in  Fiuure  1''  and 
their  coordinate  positions  are  presented  in  Table  i8. 


*.  0  ' 


ure  10  . 


BPRD  Seat  Coordinate  £'■? 
Reference  Fiducial  Local 
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TABLE  18 


BPRD  REFERENCE  FIDUCIAL  COORDINATES 


•HI 

x( inches) 

V (inches) 

z ( inches) 

1 

-2.05 

10.5 

34.57 

2 

-2.05 

10.5 

28.5 

3 

-2.05 

10.5 

10.55 

4 

-2.05 

10.5 

4.57 

5 

4.88 

10.5 

1.1 

6 

10.75 

10.5 

.43 

7 

15.87 

10.5 

-  .25 

8 

4.41 

10.5 

-  .83 

9 

10.35 

10.5 

-  1.26 

10 

15.55 

10.5 

-  1.69 

11 

0.0 

7.68 

40.28 

12 

0.0 

0.0 

40.30 

13 

0.0 

-  7.33 

40.31 

14 

0.0 

9.83 

22.64 

15 

0.0 

9.83 

22.64 

16 

0.0 

-  9.83 

12.6 

17 

0.0 

-  9.83 

12.6 

18 

22.89 

9.83 

-  3.16 

19 

22.88 

-  9.83 

-  3.24 

20 

32.45 

-18.25 

5.83 

21 

38.68 

-18.25 

2.08 

22 

31.24 

-18.25 

-12.27 
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.Three  Millikan  16nim  motion  picture  cameras  were  mounted, 
two  to  the  RH  side  of  the  test  facility  frame  and  the  third  for¬ 
ward  of  the  frame.  The  locations  of  these  cameras  are  illustrated 
in  Figure  20  and  the  coordinates  of  their  focal  points  and  camera 
body  orientations  are  listed  in  Table  19. 

2.5.3  Photogrammetric  Calibration 

'In  the  discussion  of  the  approach  to  the  photometric  sys¬ 
tem  two  assumptions  were  made  ;  that  the  focal  lengths  of  the  re¬ 
cording  and  projection  lenses  introduced  no  distortion,  and  that 
the  focal  lengths  were  precisely  stated.  The  validity  of  these 
assumptions  must  be  questioned. 

A  flat-black  board,  24  inches  x  48  inches,  containing  a 
1  inch  X  1  inch  grid  pattern  of  white  thread  was  photographed  by 
each  camera  as  follows: 


Camera  View 


Board  Location  and  Orientation 


A 

A 


B 


C 


1  Surface  in  plane,  y=0,  longer  edge  on  z  axis, 
shorter  edge  on  x  axis. 

2  Surface  in  plane,  y=  -6.97  inches,  longer 
edge  against  plane  x=0,  shorter  edge  in 
plane  z=0  , 

1  Surface  in  plane  y=0,  lower  edge  parallel 

with  deck,  3/8  inch  above  deck.  Longer  edge 
against  forward  edge  of  seat  pan. 

1  Surface  perpendicular  to  deck  1/2  inch  for¬ 
ward  of  forward  most  points  on  armrests. 

Lower  edge  on  deck. 


These  views  of  gridboard  are  on  the  film  reel  immediately  after 
the  views  of  test  run  271. 

From  these  films  a  slight  "barrel  distortion"  was  ob¬ 
served  on  all  views.  No  corrections  were  made  since  the  distor¬ 
tion  was  considered  to  be  inconsequential  in  the  area  of  the  frame 
being  evaluated. 
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Figure  20 


Camera  Locations  in  BPFD  Seat  Coordinate 
System. 


TABLE  19 


BPRD  COORDINATES  OP  CAMERA  FOCAL  POINTS 
AND  CAMERA  BODY  ORIENTATIONS 


Camera 

FOCAL 

1=0 INT  COORDINATES 

AZIMUTH 

ELEVATION 

ROLL 

Station 

x( inches) 

y ( inches) 

z( inches) 

(radians) 

(radians) 

(radians; 

A 

0.0 

66.61 

19.21 

4.712 

.006 

.002 

B 

28.0 

37.49 

-6.72 

4.712 

-.002 

.236 

c 

68.98 

0.84 

8.36 

3.142 

.299 

.001 
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From  the  <jridboard  views  recorded  on  the  camera  at  Station 
A,  readings  were  taken  from  the  PCS  2  axis  intercepts  of  five  pairs 
of  horizontal  gridlines,  the  lines  of  each  pair  being  twelve  inches 
apart.  This  same  procedure  was  applied  tc5  the  PCS  x  axis  inter¬ 
cepts  of  five  pairs  of  vertical  gridlines.  An  average  of  the 
displacements  of  the  PCS  readings  was  taken  for  each  of  the  grid- 
board  locations.  The  resulting  conversion  factors  were  1377.75 
counts  per  foot  at  SCS  y=0  and  1548  counts  per  foot  at  SCS 
y=  -6.969  inches. 

Referring  to  Figure  4  the  following  values  were  assigned; 

r  =  r  .  =  12  inches 
o  o2 

r  =  1377.75  counts 
P 

r  .  =  1548  counts 
P2 

s  -s  »  =  6.97  inches. 

Q  o2 

The  distance  from  the  axis  at  which  the  ray  from  p^  to  the  focal 
point  penetrated  the  Object  2  Plane  was  calculated  to  be; 


r  _  r 

r  ~  ~  r  - 
o2  p2 


r 


"02 


r 


p2 


r 


12  inches 


1377.75  counts, 
1548  counts 


r  =  10.68  inches. 


The  apparent  distance  from  the  focal  point  to  the  plane  y=0  was 
calculated  to  be: 


s 


o 


s 


o 


-s 


o2 


r 


s 


o 


r 

o 


'o2 


-r 
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^  -  c  n-i  u  /  i2  inches  , 

=  6.97  inches  ^ - r — 

o  1.32  inches 


=  63.36  inches . 


Calculation  of  a  I'onversion  constant,  f  ,  for  any  plane,  v  =  n,  was 

n 

then  accomplished  using: 

s 

f  =  - -  X  1  377.75  counts  per  foot 

n  s  —  y 
o 

where  y  was  either  one  half  the  measured  breadth  of  the  subject 
between  anthropometric  points  on  the  right  and  left  side  or  the 
measured  y  displacement  of  fiducials  on  the  test  facility. 

2.5.4  Data  Reduction  Process 

The  data  reduction  process  consisted  of  data  editing, 
digitizing,  and  electronic  data  processing.  Film  editing  and 
digitizing  were  accomplished  on  the  Producers  Service  Corporation 
model  PVR  film  analyzer  (PVR)  interfaced  with  a  teletype  terminal 
(TTY)  with  paper  tape  punch.  Tape  to  card  conversion  and  elec¬ 
tronic  processing  and  plotting  were  accomplished  on  the  CDC  Cyber 
74  System  at  the  Aeronautical  Systems  Division's  L'igital  Computa¬ 
tion  Facility  (ASD/AD)  in  Building  67C,  Area  B,  Wright-Patterson 
Air  Force  Base. 

2 . 5  -  4 . 1  Editing 

The  seat  side  view  camera  film  was  viewed  on  a 
light  table  and  the  frames  and  .01  second  timing  pulses  were 
counted  throughout  the  event.  The  frame  exposure  rate  (frames  per 
second)  was  scanned  for  consistency  and  the  average  frame  rate 
was  calculated.  During  the  runs  processed  the  frame  rate  was 
500  +  1  frames  per  second  during  the  300  milliseconds  followina 
ini tiation . 
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The  film  was  mounted  on  the  PVR  and  was  trans¬ 
ported  forward  in  the  cine  mode  until  the  operator  observed  that 
the  subject  motion  had  apparently  terminated.  The  number  of  the 
frame  was  noted  as  termination  time. 

2. 5. 4. 2  Digitizing 

Upon  completion  of  the  editing  procedure,  the 
film  was  transported  reverse  to  frame  zero,  the  first  frame  in 
which  the  strobe  flash  was  observed.  The  scales  on  the  PVR  were 
translated  and  rotated  until  the  coordinates  of  fiducials  10  and 
8  were  read  to  be  within  +20  counts  of  (2145,  -2860)  and  (640, 
-2765)  respectively.  The  projected  image  coordinates  were  then 
digitized  in  the  following  sequence. 

1.  Arm  rest  forward  fiducial  (10) 

2.  Arm  rest  aft  fiducial  (8) 

3.  Mid  thigh  fiducial 

4.  Knee  fiducial 

5.  Shoulder  fiducial 

6.  Elbow  fiducial 

7.  Upper  nose  fiducial 

8.  Lower  nose  fiducial 

9.  Retraction  piston  fiducial 

10.  T-1  vertebra  fiducial 

11.  Upper  helmet  fiducial 

12.  Lower  helmet  fiducial 

The  digital  values  of  these  coordinates,  pre- 
ceeded  by  the  frame  number,  were  punched  into  paper  tape  in  the 
format  (15,  8F7.0/15,  8F7.0/15,  8F7.0).  Each  of  the  8F7.0  fields 
contained  four  pairs  of  coordinates. 

After  the  coordinates  projected  from  frame 
zero  were  dinitized,  the  coordinates  from  each  succeeding  frame 
were  digitized  in  the  same  sequence  until  the  fifteenth  frame 
following  the  frame  noted  as  termination  time.  The  last  fifteen 
frames  were  digitized  to  prevent  timewise  truncation  of  velocity 
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and  acceleration  curves  due  to  smoothing  of  the  data  during  elec¬ 
tronic  data  processing. 

2. 5. 4. 3  Electronic  Data  Processing 

This  portion  of  the  process  required  three  pro¬ 
cedures,  data  preparation,  computation,  and  plotting. 

1 

Data  Preparation:  During  the  data  preparation  i 

procedure,  the  file  recorded  on  punched  paper  tape  was  communicated 
to  the  computer  at  ASD/AD  from  a  TTY  35  via  voice  quality  lines. 

The  file  was  then  edited  to  correct  format  and/or  character  errors, 
and  was  batched  to  a  card  punch  for  creation  of  the  permanent  file. 
Concurrently,  the  identification,  control,  and  conversion  constant 
cards  required  by  program  HIFPD  were  punched  for  merger  with  the 
card  file. 

The  identification  card  contained  alphanumeric 
information  in  card  columns  (cc)  1  thru  80  which  was  printed  on 
output  tables  as  table  identification.  The  form  used  was  RAPID 

RESTRAINT  TEST  _ ,  SUBJECT  _ ,  YYMMDD.  The  last  entry  is  the 

date  on  which  the  test  was  conducted  in  terms  of  year,  month,  and 
day  of  month. 

The  control  card  contained  the  test  number  and 
program  control  switch  characters.  The  format  and  definition  of 
switching  functions  is  listed  under  "Description  of  Program  HIFPD 
Input  Data  and  Parameter  Codes." 

The  conversion  constant  card  contained  the  film 
speed  (frames  per  second)  and  conversion  constants  to  be  applied 
to  the  second,  third,  and  fourth  pairs  of  coordinates  on  the  first 
line  read  from  each  frame,  and  the  first  thru  fourth  pairs  of 
coordinates  on  the  second  line  read  from  each  frame.  The  format 
for  this  card  was  (8F10.0)  . 


Upon  receipt  of  the  card  file  of  PCS  coordinate 
readings,  it  was  merged  with  the  previously  punched  ID,  control, 
and  constant  cards,  and  the  computer  control  cards  for  submission 
to  ASD/AD  for  computation.  The  composition  of  a  typical  computer 
run  deck  is  illustrated  in  Figure  14. 

Computation ;  Film  frame  coordinate  positions 
of  the  tracked  points  were  converted  to  two-dimensional  seat  co¬ 
ordinate  time  histories  by  program  HIFPD,  which  is  described 
fully  in  Section  2.2.  Two  versions  of  the  program  were  filed. 

The  first  read  the  digitized  values  from  the  first  and  second 
lines  from  each  frame  and  wrote  the  appropriate  heading  and 
labels  on  tables  and  plots.  The  second  version  read  the  digi¬ 
tized  values  in  the  first  and  third  lines  from  each  frame  and 
wrote  the  appropriate  headings  and  labels  on  tables  and  plots. 

This  variation  required  two  passes  through  the  computer. 

Although  program  HIFPD  is  documented  herein  a  brief  dis¬ 
cussion  of  the  application  is  warranted. 

The  PCS  coordinate  readings  of  the  two  refer¬ 
ence  fiducials  from  the  first  film  frame  are  used  as  the  basis 
for  the  location  of  optical  axis  relative  to  the  reference  points 
and  for  the  angular  relationship  between  the  axes  of  the  PCS  and 
the  SCS.  Readings  of  these  points  from  each  subsequent  film 
frame  translated  and  rotated  the  PCS,  coordinate  system  to  coin¬ 
cide  with  the  orientation  of  the  first  frame.  This  was  done  to 
minimize  errors  due  to  vibration  of  the  camera  during  the  test 
event. 

The  displacement  from  the  optical  axis  of  the 
second  reference  point  was  calculated  by  dividing  the  PCS  coordi¬ 
nates  by  the  conversion  constant  contained  in  columns  11  thru  20 
in  the  conversion  constant  card.  In  turn  the  displacement  from 
the  optical  axis  of  each  of  the  tracked  points  was  calculated  by 
dividing  its  PCS  coordinates  by  its  conversion  constant.  The 
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values  of  x  and  z  displacements  from  the  optical  axis  of  each 
point  were  then  subtracted  from  the  x  and  z  displacements  of  the 
reference  point  yielding  x  and  z  coordinates  of  each  point  rela¬ 
tive  to  the  reference  point.  Thus  the  origin  of  the  calculated 
coordinate  system  had  been  translated  to  the  location  of  reference 
fiducial  8. 

From  the  time  histories  of  seat  coordinate  posi¬ 
tions,  HIFPD  computed  total  velcoity  and  acceleration  time  histories 
of  each  point,  fitting  a  moving  quadratic  arc  to  eleven  points 
during  each  differentiation,  and  the  angular  velocity  and  accelera¬ 
tion  time  histories  of  the  upper  nose  point  about  the  lower,  and 
of  the  shoulder  about  the  mid  thigh  point;  again  fitting  a  moving 
quadratic  arc  to  eleven  points  during  each  differentiation. 

The  resulting  time  histories  were  printed  in 
tables  and  written  on  magnetic  tape  for  plotting. 

Plotting ;  After  examination  of  the  tabular 
results  of  the  computation  revealed  no  apparent  gross  errors,  a 
plot  request  was  submitted  to  ASD/AD.  The  data  written  on  the 
magnetic  tape  by  HIFPD  were  read  and  plotted  offline  on  the  CAL- 
COMP  Plotter. 

2,5.5  Results  and  Accuracy 

The  results  of  this  effort  were  presented  in  tabular  and 
graphic  forms.  The  accuracy  with  which  these  results  represent 
the  actual  motions  of  the  observed  points  is  the  subject  of  debate. 
The  following  deficiencies  may  be  inferred  from  a  study  conducted 
by  H.  T.  Mohlman  of  the  UDRI . ^ 

(1)  Attenuation  of  peak  values  of  displacement,  velocity 
and  acceleration  is  a  function  of  frequency. 

(2)  The  eleven  point  quadratic  fit  yields  closer  corre¬ 
lation  than  either  seven,  nine,  thirteen,  or  fifteen 
point  quadratic  fits. 

iGraf,  P.A.  and  ii.T.  Mohlman,  Accuracy  of  Diqitized  Photometric 
Data,  AMRL-TR-79-76 ,  April,  1980,  Aerospace  Medical  Research 
Laboratory,  Wri  :ht-Patterson  Air  Force  Base,  Ohio. 
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{ ^)  The  attenuation  of  any  specific  displacement,  velo¬ 
city,  or  acceleration  peak  is  reasonably  predictable 
if  the  apparent  frequency  of  the  peak  is  prof:'fcr]y 
interpreted . 

(4)  Oscillations  in  velocity  and  acceleration  curves  are 
predominantly  artifacts  induced  by  reading  errors. 

The  frequency  is  a  function  of  the  sampling  rate  and 
the  number  of  points  included  in  the  smoothing  fit. 

The  referenced  work  included  investigation  of  sampling 
theory  and  application  of  the  quadratic  fits  to  digitized  photo¬ 
metric  data  acquired  during  BPRD  tests  172  and  173. 

Frequency  response  curves  presented  in  Figure  21  were 
derived  from  fitting  eleven  points  of  sinusoidal  motion  at  fre¬ 
quencies  from  2  Hz  to  35  Hz  at  a  sampling  rate  of  500  samples/ 
second.  The  data  from  which  these  curves  were  constructed  are 
presented  in  Table  20  and  are  described  in  detail  in  the  referenced 
report . 

The  accuracy  of  the  digitizing  was  indicated  by  the 
standard  deviation  about  the  mean  for  the  solution  of  the  forward 
seat  reference  point  with  respect  to  the  rear  reference  point.  The 
standard  deviations  were: 


.x-Axis 

z-Axis 

Run 

{ feet) 

( feet) 

172 

.  0073 

.00049 

173 

.0030 

.00017 

The  effect  of  smoothing  the  displacement  solutions  of  tht' 
tracked  points  are  indicated  in  Table  21,  which  presents  the 
standard  deviations  of  difference  between  unsmcxithed  e.nd  sru'ctheu 
components  of  the  displacements. 


Figure  21.  Frequency  Response  of  11-Point  Smoothin<j  as  Applied 
in  the  HIFPD  Program. 


TABLE  20 


DISTORTION  FACTOR  (FK)  COMPUTED  FROM 
MULTIPLE  FREQUENCY  SINE  FUNCTIONS 


f 


f  (Hz)  * 

Q 

Distor 

ticn  Factor 

(FK) 

O 

‘  '  f 

S 

F 

DISPL 

VEL 

ACCEL 

2 

.04 

.9974 

1.0000 

.9981 

.9963 

.08 

.9895 

1.0000 

.9925 

.9851 

6 

.12 

.9765 

.9999 

.9831 

.9667 

8 

.16 

.9584 

.9997 

.9700 

.9413 

10 

.20 

.9355 

.999  3 

.9532 

.9093 

12 

.24 

.9079 

.9985 

.9327 

.8713 

14 

.28 

.8759 

.9972 

.9066 

.8278 

16 

.32 

.8399 

.9953 

.8809 

.7796 

13 

.36 

.8000 

.9926 

.8498 

.7275 

20 

.40 

.7568 

.9888 

.8154 

.6724 

22 

.44 

.7106 

.9838 

.7779 

.6151 

24 

CO 

.6618 

.9975 

.7376 

.5567 

26 

.52 

.6109 

.9695 

.6949 

.4981 

28 

.56 

.5583 

.9597 

.6500 

.4403 

30 

.60 

.5046 

.9479 

.6034 

.3841 

32 

.64 

.4500 

.9340 

.5556 

.3305 

34 

.68 

.3952 

.9177 

.5070 

.2801 

35 

.70 

.3679 

.9086 

.4826 

.2563 

*f  applies  only  to  an  11-point  fit  of  data  sampled  at  500  samples  per 
second;  use  r  to  determine  FK  for  other  fits  and/or  sample  rates. 
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TABLE  21 


STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  UNSMOOTHED  AND 
SMOOTHED  DISPLACEMENT  DATA  IN  FEET 


TEST 

x-axis 

172 

z-axis 

TEST 

x-axis 

173 

z-axis 

Hip 

.0028 

.0028 

.0027 

.  0030 

Knee 

.0028 

.0039 

.0034 

.0041 

Shoulder 

.0077 

.0041 

.  0080 

.  0046 

Elbow 

.0039 

.0091 

.  0048 

.0039 

Head  Point 

1 

.0085 

.0058 

.0090 

.  0060 

Head  Point 

2 

.0121 

.0083 

.0128 

.  0085 

Piston 

.0046 

.0077 

.0062 

.  0072 

T1 

.0089 

.0045 

.0093 

.  00  38 

Helmet  1 

.0090 

.0037 

.0099 

.0038 

Helmet  2 

.0082 

.0035 

.0086 

.  0038 
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SECTION  3 

ANALYSIS  OF  NONPLANAR  MOTIO^; 

Exposure  to  impact  environments  havinc  sianificant  lateral 
components  of  acceleration  usually  result  in  three  dimensional 
responses . 

A  method  was  developed  by  the  UDRI  to  solve  for  the  instan¬ 
taneous  coordinates  of  points  relative  to  a  seat  coordinate  system 
(SCS).  The  method,  documented  in  AMRL-TR-78-94 ,  employs  program 
POOCH  to  calculate  the  apparent  coordinates  of  the  focal  point 
of  each  camera  and  the  orientation  of  its  optical  axis  and  the 
film  frame  axes  in  the  SCS.  The  results  output  by  POOCH  are  in¬ 
put  to  program  SLED  to  calibrate  the  digitized  readings  of  observed 
points.  SLED  solves  for  the  most  likely  point  of  intercept  of  the 
rays  from  each  observed  point  to  each  focal  point  and  calculates 
the  distance  between  the  rays  at  each  solution  point. 

This  method  was  applied  to  photodata  collected  during  the 
DOT  6  Year  Old  Child  comparison  and  the  Whole  Body  Restraint- 
Lateral  study.  The  latter  also  required  the  derivation  of  velo¬ 
city  and  acceleration  time  histories  from  the  displacement- time 
data.  Program  WBRL  was  developed  to  smooth  the  component  dis¬ 
placement-time  histories  and  to  derive  smoothed  component  and 
resultant  velocity  and  acceleration  time  histories.  Program  WBR-L , 
with  explanatory  comments,  is  listed  in  Appendix  B. 

3.1  DOT  6  YEAR  OLD  CHILD  COMPARISON 

The  Department  of  Transportation,  under  an  interagency 
agreement,  requested  a  comparative  analysis  of  the  effectiveness 
of  three  types  of  automotive  child  restraint  systems,  and  a 
comparison  of  the  inertial  and  kinematic  responses  of  three  types 
of  surrogate  six-year-olds  while  restrained  with  each  of  the 
three  systems.  The  surrogates  were  two  manikins  of  different 
manufacture  and  nine  live  anesthetized  baboons  whose  general 
anthropometry  approximated  that  of  a  six  year  old  child. 
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The  impact  environments  were  developed  with  the  AMRL/BBP 
Horizontal  Impulse  Accelerator  Facility  at  WPAFB .  The  impact  en¬ 
vironments  simulated  were  twenty  and  thirty  miles  per  hour  head 
on  and  fifteen  and  twenty  miles  per  hour  left  lateral.  Seventy- 
five  test  runs,  including  system  performance  tests,  were  conducted 
from  22  October  1975  thru  19  December  1975. 


3.1.1  Photometric  Data  Acquisition 

The  primary  objectives  of  the  photometric  data  system  were 

to  : 

•  Develop  a  method  for  calculating  three  dimensional 
displacement  of  anthropometric  points. 

•  Collect  data  on  two  high  speed  motion  picture  cameras 
mounted  onboard  the  test  vehicle. 

•  Apply  the  developed  method  to  reduce  the  photodata  to 
time  histories  of  three-dimensional  coordinate  positions 
in  the  SCS  of  two  points  on  the  head  of  each  subject. 


The  method  developed  to  solve  the  time-SCS  position  data 
resulted  in  the  programs  POOCH  and  SLED.  These  programs  required 
application  of  fixed  reference  fiducials  and  a  survey  of  their 
coordinates  in  the  SCS.  The  camera  and  range  survey  data  from 
forward  impact  configurations  and  left  lateral  impact  configurations 
are  presented  in  Figures  22  and  23  respectively. 


Photo  recordings  were  recorded  on  two  Milliken  DBM-4B 
cameras  fitted  with  10  mm  lenses.  The  cameras  were  operated  at 
a  nominal  rate  of  500  frames  per  second.  Timing  of  the  film  was 
provided  by  exposure  of  the  film  edges  to  light  emitting  diodes 
excited  simultaneously  by  a  central  pulse  generator  at  100  pulses 
per  second. 


Figures  24  and  25  illustrate  typical  scenes  as  observed 
by  these  cameras  prior  to  forward  and  lateral  impacts  respectively. 
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3.1.2 


Data  Reduction 


Reduction  of  the  recorded  data  to  displacement-time 
histories  required  digitization,  in  the  projected  image  coordinate 
system  (PCS)  of  the  coordinates  of  fixed  reference  fiducials  and 
fiducials  on  the  heads  of  the  subjects,  and  electronic  data  pro¬ 
cessing  of  the  digitized  data  by  POOCH  and  SLED. 

Digitizing  was  accomplished  on  a  Producers  Service  Corpora¬ 
tion  model  PVR  film  analyzer  (PVR)  which  was  interfaced  to  a  tele¬ 
type  terminal  equipped  with  a  paper  tape  punch  station  (TTV) . 

The  film  was  mounted  on  the  PVR  and  was  transported  until 

the  first  time  pulse  (t=0)  was  observed.  The  film  was  transported 

in  reverse  until  the  twelfth  frame  before  the  t  pulse  to  com- 

o 

pensate  for  the  film  path  displacement  of  the  LED  from  the  exposure 
frame  in  the  gate.  The  frame  counter  was  reset  to  0000. 

The  origin  of  the  projected  image  coordinate  system  was 
located  by  numerically  bisecting  the  major  and  minor  dimensions 
of  the  projected  frame  and  resetting  the  counters  to  zero  at 
that  point.  The  PCS  coordinates  of  all  observed  reference  fiducials 
were  then  digitized  by  locating  the  cursors  over  the  center  of  each 
and  depressing  the  record  switch.  The  operator  noted  the  code 
number  of  eacn  observed  fiducial  as  it  was  digitized.  These 
values  were  later  processed  by  POOCH  to  locate  and  orient  the 
camera  for  the  data  from  this  test. 

The  operator  then  digitized  the  PCS  coordinates  of  four 
reference  fiducials,  previously  selected  as  being  observable 
throughout  the  event,  and  the  four  points  on  the  heads  of  the 
subjects.  The  resulting  tabJe  of  data  was  in  the  form  of  the 
following  format  throughout  the  program.  During  lateral  impacts 
only  one  subject  was  exposed.  When  films  from  these  tests  were 
digitized  the  reading  of  the  chin  fiducial  was  repeated  two 
additional  times  to  fill  the  file. 
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NOTE:  Points  tracked  on  baboons  were  the  head  accelerometer 

and  the  tip  of  the  snout. 

After  the  data  were  digitized  from  frame  zero  the  film 
was  advanced  to  frame  001  and  the  points  were  again  digitized  in 
the  same  sequence.  This  procedure  was  repeated  for  each  frame 
until  one  of  the  fiducials  on  the  head  of  one  of  the  subjects 
became  unreadable. 


The  digital  files  recorded  on  paper  tapes  were  communicated 
to  the  CDC  co.niputer  system  at  Aeronautical  Systems  Division's 
Digital  Computation  Facility  (ASD/AD)  from  a  TTY  via  data  modem 
and  voice  quality  lines.  The  files  were  edited  to  correct  format 
and/or  character  errors  and  were  copied  to  disk  storage  and  card 
punch.  The  card  files  were  maintained  as  backup  in  case  the  disk 
files  had  been  inadvertantly  purged. 

The  files  were  amended  by  insertion  of  camera  location  and 
orientation  data  output  by  POOCH,  and  the  addition  of  the  fixed 
reference  fiducial  SCS  coordinates,  the  film  frame-time  equivalence 
table,  and  the  interpolation  interval  and  test  run  number  as 
required  by  SLED. 

The  binary  file  of  SLED  was  attached  and  executed.  The 
output  was  copied,  in  batch  mode,  to  a  printer  and  card  punch. 

The  results  were  visually  checked  for  obvious  errors.  If 
the  solutions  evidenced  no  apparent  discontinuities  and  the  miss- 
distances  at  the  solution  points  were  less  than  0.25  inch,  the 
card  deck  containing  the  SCS  solutions  was  prepared  to  generate 
plots.  The  plots  generated  presented  y  and  2  displacements  versus 
X  displacement. 

3.2  WHOLE  BODY  PvESTRAINT-LATERAL 

Description  of  relative  motion  of  anthropometric  points 
of  the  torso,  head,  and  extremities  during  laboratory  simulations 
of  impact  environments  are  essential  to  the  development  and  veri¬ 
fication  of  predictive  models.  One  method  of  describing  the  motion 
of  these  points  is  to  track  each  point  as  a  function  of  time  with 
two  or  more  motion  picture  cameras,  quantify  or  evaluate  the 
coordinates  of  their  images  as  projected,  and  from  these  jim^^cted 
image  coordinates  calculate  the  loci  of  the  points  in  the  seat 
coordinate  system.  This  method  was  applied  during  the  hody 

Restraint-Lateral  (WBRL)  Impact  Study  conducteci  by  the  n ii^mecha  n :  ea 
Protection  Branch  of  the  AF  Aerospace  Modiv-al  .'-iesearch  I.aii'  t  i- 
tory  (AMRL/BBP)  .  The  experimental  tests  were  conducted,  vi 
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Horizontal  Impulse  Accelerator  facility  in  Building  824  at  Wright 
Patterson  Air  Force  Base,  Ohio  between  March  and  July  1977. 

3.2.1  Seat  Coordinate  System 

The  seat  coordinate  system  (SCS)  was  a  left  handed  three- 
dimensional,  mutually  perpendicular  system  having  its  origin  at 
the  intercept  of  the  seat  centerline  and  the  line  of  intersection 
of  the  seat  pan  upper  surface  and  the  seat  back  forward  surface. 
The  positive  senses  of  the  axes  were  to  the  rear  (x  axis) ,  to  the 
left  (y  axis),  and  upward  (z  axis)  as  illustrated  in  Figure  26. 


Figure  26.  WBR-L  Seat  Coordinate  System  (SCS). 


3.2.2  Camera  Locations 

Photographic  records  of  the  responses  of  the  test  subjects 
were  acquired  by  four  Milliken  16  mm  cameras  operating  at  nominal 
exposure  rates  of  500  frames  per  second.  All  four  cameras  were 
mounted  onboard  and  were  located  and  oriented  such  that  each  of 
the  fiducials  located  on  the  nine  anthropometric  points  to  be 
tracked  were  observable  by  two  of  the  cameras  throughout  the  impact 
and  response  periods.  The  location  and  orientation  scheme  of  the 
cameras  is  illustrated  in  Figure  27,  and  the  coordinates  of  the 
focal  points  and  orientations  of  optical  axes  are  presented  in 
Table  22. 


Figure  27.  Schematic  of  Camera  Locations  and  Orientations,  WBR-L. 


SUKVKY  (  'V  l-llO'l'OHLTUr  KANGh  CAMGkA  l.A'l'A ,  WHl'l. 


3.2.3 


Data  Acauisition 


The  data  acquisition  mission  consisted  of  three  distinct 

tasks : 

1.  Documentation  of  anthropometric  measurements  of  each 
subject . 

2.  Tracking  fiducial  application,  measurement,  and  docu¬ 
mentation  . 

3.  Cine  recording  of  the  tracking  fiducials  during  the 
impact  and  response  events. 

Anthropometry  of  each  test  subject  was  measured  and  docu¬ 
mented  by  A.MRL/HED. 

Tracking  fiducial  application,  measurement  and  docum.er.ta- 
tion  were  accomplished  prior  to  each  test  run  by  the  UDRI  repre¬ 
sentative.  Tracking  fiducials  were  located  as  follows. 

The  suprasternal  notch  was  located  by  palpation  and  marked 
with  a  nylon  tip  pen. 

The  lower  end  of  the  sternum  was  located  by  palpation  and 

marked . 

Two  arcs  of  10  cm  radius  were  struck  from  the  mark  on  the 
suprasternal  notch  to  the  right  and  left  clavicles  and  were  marked. 

One-inch-diameter  fiducials,  printed  in  alternating  black 
and  yellow  quadrants  and  having  a  one-sixteenth  inch  hole  at  the 
center,  were  placed  over  these  four  marks. 

With  the  subject's  head  erect,  a  fiducial  approximately 
three-eighths  inch  high  and  one-inch  wide  was  centered  on  the 
sagittal  plane  of  the  nose  at  the  level  of  the  pupils.  A  fiducial 
of  similar  size  was  located  at  the  level  of  the  pupils  at  each 
lateral  orbital  rim. 

Two  additional  tracking  fiducials  were  previously  mounted 
to  a  leather  appliance  which  was  strapp-^d  to  the  subiect's  peT  is. 
Initially  these  fiducials  were  placed  on  the  sub]ect  over  the 
anterior  superior  iliac  spines.  This  proved  to  be  unsatisfactory 
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because  the  fiducials  on  several  subjects  were  obscured  by  abdomii.a 
skin  folds  when  the  subject  was  seated. 


The  last  fiducial  was  intended  to  track  the  motion  of  the 
first  thoracic  vertebra  (T-1) .  With  the  subject's  head  bowed  for¬ 
ward  the  spinous  process  of  the  seventh  cervical  vertebra  (C-7)  was 
located  by  palpation  and  was  followed  as  the  subject  erected  his 
head.  The  fiducial  was  then  placed  over  this  point  which,  with 
the  head  erect,  overlayed  T-1. 

With  the  subject  seated  in  a  mockup  of  the  test  seat  relati 
dimensions  were  read  with  an  anthropometer  and  recorded.  Dimension 
taken  were : 


R.H. 

eye 

fiducial 

-  L.H. 

eye  fiducial 

R.H. 

eye 

fiducial 

-  Nose 

fiducial 

L.H. 

eye 

fiducial 

-  Ncse 

fiducial 

Suprasternal  notch  fiducial  -  Lower  sternum  fiducial 
Suprasternal  notch  fiducial  -  R.H.  clavicle  fiducial 

Suprasternal  notch  fiducial  -  L.H,  clavicle  fiducial 

Suprasternal  notch  fiducial  -  R.H.  pelvic  fiducial 

Suprasternal  notch  fiducial  -  L.H.  pelvic  fiducial 

Lower  sternum  fiducial  -  R.H.  clavicle  fiducial 
Lower  sternum  fiducial  -  L.H.  clavicle  fiducial 
R.H.  pelvic  fiducial  -  L.H.  pelvic  fiducial 
R.H.  clavicle  fiducial  -  L.H.  clavicle  fiducial 

After  the  subject  was  instrumented  and  seated  in  position, 
coordinates  (in  the  seat  coordinate  system)  of  the  suprasternal 
notch  fiducial,  the  R.H.  trageon,  and  the  lower,  forward,  inboard 
corner  of  the  Nine  Transducer  Accelerometer  Pack  (9TAP)  werei  read 
and  recorded.  The  9TAP  was  mounted  on  the  R.H.  side  of  a  weldina 
mask  headband  which  was  secured  by  straps  under  the  chin  and  the 
base  of  the  occiput.  It  contained  three  linear  accelerometers  at 
the  origin  and  two  at  the  end  of  each  arm  aligned  with  each  of  the 
three  axes  of  the  head  and  was  designed  to  yield  time  histories  of 
linear  acceleration  in  three  axes  and  angular  accelerations  about 
those  axes . 
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Prior  to  the  first  test,  fixed  reference  fiducials  were 
mounted  on  the  test  fixture.  These  fiducials  are  identified  in 
Figure  28,  and  their  coordinates  are  listed  in  Table  23. 

Cine  recording  of  the  responses  of  the  subjects  were  re¬ 
corded  from  t=-2  seconds  to  t=2  seconds.  The  four  Milliken  cameras 
were  remotely  operated  by  circuits  in  the  photo  instrumentation 
control  console  which  was  programmed  into  the  countdown  sequence. 
Timing  was  provided  by  a  pulse  generator  which  simultaneously  ex¬ 
cited  an  LED  in  each  of  the  cameras  at  the  rate  of  one  hundred 
pulses  per  second. 

Synchronization  of  time  among  the  films  was  accomplished 
by  a  strobe  flash,  observable  by  all  cameras,  initiated  at  t=0 . 

3.2.4  Data  Reduction 

The  desired  results  of  the  data  reduction  effort  were 
time  histories  of  coordinate  positions  of  the  tracked  points  and 
the  velocities  and  accelerations  derived  tnereform.  The  system 
used  was  a  modified  photo  theodolite  space  position  solution  system. 
The  phototheodolite  system  assumes  synchronized  exposure  of  films 
from  two  or  more  cameras.  Since  the  cameras  used  were  not  syn¬ 
chronized,  the  system  was  modified  to  synchronize  projected  film 
frame  images  by  linear  interpolation  of  projected  film  frame  co¬ 
ordinates  between  frames  at  fixed  time  intervals. 

The  overall  data  reduction  task  required  three  subtask 
areas,  film  editing,  projected  image  digitizing,  and  electronic 
data  processing. 

3. 2. 4,1  Film  Editing 

Critical  to  the  processing  of  the  photo  data  were  timing, 
legibility  of  reference  and  tracking  fiducials,  and  documentation 
of  any  anomalies  that  might  occur. 

Each  film  was  viewed  on  a  light  table  to  assure  that 
there  was  no  erratic  behavior  of  film  transport  during  recording. 
This  was  accomplished  by  sampling  the  film  intervals  between  .01 
second  LED  images  on  the  film.  If  no  significant  deviations  were 
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TABLE  23 

WBRL  REFERENCE  FIDUCIAL  COORDINATES  (CM) 


Ref.  No. 

X 

Z 

z 

1 

-45.0 

0 . 0 

-  2.5 

2 

0.0 

0.0 

0.0 

3 

0.0 

0.0 

45.2 

4 

0.0 

0.0 

70.0 

5 

0.0 

0.0 

91.2 

6 

0.0 

-10.2 

91.2 

7 

0.0 

10.2 

91 . 2 

8 

-43.7 

45.0 

39 . 5 

9 

5.6 

-16.3 

79.1 

10 

5.6 

-16.3 

63.8 

11 

5.2 

-22.4 

74.1 

12 

1.0 

17.1 

73.2 

13 

1.0 

17.2 

54.2 

14 

8.7 

-  0.4 

72.3 

15 

9.7 

0.5 

67.4 

16 

11.1 

1.0 

60.6 

17 

27.9 

16.4 

50.  9 

18 

27.8 

10.8 

50.9 
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noted,  the  average  frame  rate  was  calculated.  Since  the  cameras 
employed  were  pin  registered,  and  a  loop  of  11  to  12  frames  was 
required  between  the  pulsed  LED  and  the  shutter,  absolute  timing 
was  not  possible. 

Time  zero  was,  by  definition,  the  first  frame  in  which 
the  strobe  flash  was  observable.  Given  a  nominal  frame  rate  of 
500  fram.es  per  second  (500  fps)  the  maximum  synchronizing  error 
was  2  milliseconds  for  each  camera.  However,  given  the  shutter 
openings  of  140°  the  maximum  error  between  two  qiven  cameras  be¬ 
comes  1.22  m.i  1 1  iseconds  ; 


360°  -  140° 
360 


X 


.002 


sec) 


3. 2. 4. 2  Projected  Image  Digitizing 

Films  from  cameras  mounted  onboard  at  stations  11,  12, 

13,  and  14  were  digitized.  The  origin  of  the  film  frame  coordi¬ 
nate  system  was  determined  by  bisecting  the  horizontal  and  verti¬ 
cal  centerlines  of  the  projected  film  frame  images  from  ten  test 
runs.  The  readings  of  reference  fiducials  were  tabulated  and  the 
average  reading  of  each  fiducial  was  calculated.  These  were  de¬ 
fined  as  the  table  of  standard  readings  used  to  set  the  scales  for 
digitizing . 

The  film  was  mounted  on  the  Producers  Service  Corporation 
(PSC)  model  PVR  film  analyzer  and  the  scaling  system  was  rotated 
until  the  cursors  were  in  alignment  with  the  projected  film  frame 
image  at  the  frame  defined  as  t=0.  The  cursors  were  set  over  tht 
image  of  a  reference  fiducial  and  the  scales  were  set  to  zero. 

The  cursors  were  then  translated  until  the  negative  values  of  the 
standard  reading  for  that  fiducial  were  counted  and  were  again  re¬ 
set  to  zero.  The  readings  of  all  reference  fiducials  were  ta)<en 
to  assure  that  they  were  all  within  +20  counts  (.02  inches)  of 
the  values  in  the  table  of  standard  readings. 
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From  Cameras  11  and  12  the  data  points  were  digitized  to 
punched  paper  tape  in  the  format  (15,  8F7.0/5X,  8F7.0/5X,  SF7.0). 
The  "15”  was  the  frame  number.  Each  of  the  "8F7.0"  formats  was 
composed  of  four  pairs  of  "-x,  y"  values  in  the  projected  film 
frame  coordinate  system.  This  was  chosen  to  simplify  the  reudinu 
since  the  cameras  at  stations  11  and  12  were  rotated  onto  their 
left  sides  to  improve  the  field  of  view. 

The  PSC  model  PVR  is  constrained  to  read  +:•:  to  tht'  ri  Th*- 
of  the  operator  and  +y  upward.  Since  the  cameras  at  stations  11 
and  12  were  rotated  to  their  left  sides,  the  operator's  view  ot 
the  film  frame  was  as  illustrated  in  Figure  29.  Thus  with  the 
PVR  programmed  to  digitize  Frame  h  ;mber  and  four  pairs  d'  , 

X  values,  the  net  result  was  the  form.at  presented  above. 

The  first  line  of  readinus  (15,  8F7.0)  contained  fhe 
frame  number  and  four  "-x,  y"  film  frame  coordinates  of  fi  .ed 
reference  points.  The  first  format  "5.X,  8F7.0/"  contained  the 
repeated  frame  number  (5X)  and  four  pairs  of  film  frame  coordinates 
(-X,  y)  of  the  suprasternal  notch,  lower  sternum,  R.h.  claviclt- 
and  L.H.  clavicle  fiducials.  The  second  form.at  "5X,  8F7.0"  con¬ 
tained  the  repeated  frame  number  and  four  pairs  of  film  frame 
coordinates  (-x,  y)  of  the  R.H.  pelvis,  L.H.  pelvis,  R.H.  eye, 
and  nose  fiducials. 

For  camera  stations  13  and  14  the  data  points  were  digi¬ 
tized  to  punched  paper  tape  in  the  format  (15,  8F7.0/5.X,  SF'^.O)  . 

For  these  views  the  PSC  PVR  was  programmed  to  punch  the  coordinate 
pairs  in  "x,  y"  format  since  camera  13  was  mounted  upright  and 
camera  14  was  inverted. 

The  first  line  of  readings  (15,  8F7.0)  again  contained 
the  film  frame  number  and  pairs  of  x,  y  readings  of  four  fixed 
reference  points.  The  second  line  (5X,  8F7.0)  contained  the  re¬ 
peated  frame  number  and  the  readinq  of  the  coordinates  of  the  T1 
fiducial  read  four  times.  This  was  done  to  satisfy  the  require¬ 
ments  of  the  preprogramming  of  the  PVR  and  input  rormat  to 
Program  SLED. 
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The  operator's  view  of  the  projected  images  of  films 
from  cameras  13  and  14  is  illustrated  in  Figure  30. 

3. 2. 4. 3  Electronic  Data  Processing 

Electronic  data  processing  required  a  sequence  of  related 
operations  which  could  be  broadly  broken  down  into  the  areas  of 
data  preparation,  computation  and  plotting,  and  review  of  results. 

Three  computer  programs  were  required  to  achieve  the  re¬ 
sults.  Program  POOCH  was  used  to  determine  the  apparent  location 
and  orientation  of  each  of  the  four  cameras.  Program  SLED  was 
employed  to  solve  for  the  most  likely  point  of  the  intercept  in 
the  three-dimensional  SCS  of  rays  from  each  pair  of  cameras  to 
each  tracked  point.  Program  WBRL  was  employed  to  calculate  time 
histories  of  smoothed  coordinate  positions  of  each  of  the  tracked 
points,  smoothed  component  and  resultant  accelerations  of  each 
of  the  tracked  points,  and  orthogonal  projections  of  the  relative 
positions  of  the  right  lateral  orbital  rim  fiducial  and  the  nose 
fiducial . 

The  results  of  these  calculations  were  printed  on  hard 
copy  and  written  on  magnetic  tape  for  offline  plotting. 

Programs  POOCH  and  SLED  are  described  in  detail  in  AMRL- 
TR-78-94  "Photometric  Methods  for  the  Analysis  of  Human  Kinematic 
Responses  to  Impact  Environments." 


Data  Preparation;  Preparation  of  data  for  input  to  pro¬ 
gram  POOCH  required  digitization  of  projected  image  coordinates 
of  each  of  the  fixed  reference  points  and  transcribing  these  values 
together  with  the  measured  coordinates  in  the  SCS  of  the  points 
into  tabulating  cards.  The  approximate  measured  coordinates  in 
the  SCS  of  the  focal  point  of  the  camera  and  the  nominal  focal 
length  of  the  lens  were  also  transcribed  to  accounting  cards. 

These  cards  were  then  merged  with  system  control  cards  and  the 
binary  program  cards  and  transmitted  to  ASD/AD,  Bldg.  676,  WPAFB 
for  processing. 
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Processing  of  projected  image  coordinatc-s  to  tr.r'oj- 
dimensional  positions  in  the  SCS  required,  in  addition  to  the  o-  ■■ 
tized  readings,  location  and  orientation  data  for  each  of  the 
cameras,  reference  fiducial  table  as  seen  by  each  camera,  and  a 
film  frame-time  equivalence  table.  Cards  containing  these  uata 
were  punched  and  merged  with  the  required  systeni  control  carus 
and  wore  submitted  to  ASD/AD  for  processing  with  program  SLFO. 

The  tables  and  plots  output  by  program  SLED  were  reviewe 
for  apparent  gross  errors.  When  none  were  observed,  the  care:  fil 
punched  by  program  SLED  were  merged  with  system  control  cards  ano 
submitted  to  ASD/AD  for  processing  to  smoothed  time-SCS  coordinat 
velocities  and  accelerations  by  program  WBRL  which  is  presented 
in  Appendix  A.  Tables  and  plots  generated  by  program  WBRL  are 
presented  in  Appendices  B  through  N. 

Computation  and  Plotting:  These  functions  were  accom¬ 
plished  on  the  CDC  systems  at  ASD/AD.  The  programs  used  have  Let 
previously  referenced,  however  it  is  well  to  note  that  the  piotsra 
WBRL  calls  subroutines  from  the  system  library  to  prepare  and  wr: 
the  tapes  used  for  offline  plotting. 

Review  of  Results:  The  coordinate  solutions  calculated 
by  program  SLED  from  the  projected  images  of  films  from  cameras 
11  and  12  resulted  in  smooth  time-displacement  curves  for  the  y 
and  z  components  but  were  very  erratic  for  the  x  component.  .Due 
to  the  shallow  angle  between  the  optical  axes  of  these  cameras 
(approximately  19.8  degrees)  even  slight  reading  error  resulted 
in  large  fore  and  aft  errors  (x  coordinates).  These  errors  bera.- 
even  more  magnified  in  the  differentiation  to  x  com'eonents  cf 
velocity  and  acceleration. 

A  statistical  analysis  of  the  miss  distances  between  the 
rays  constructed  from  both  cameras  at  the  solution  points  was 
accomplished  by  program  SLED.  The  values  of  mean  error  and  stan¬ 
dard  deviation  from  the  mean  calculated  for  each  of  the  traclceci 
points  for  each  test  is  tabulated  at  the  start  of  i-ach  of  the 
data  results  appendices.  The  mean  error  and  stanaar  ; 
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from  the  mean  for  the  tracked  points  for  all  tests  considered 
are  presented  in  Tables  24  and  25, 

The  above  data  indicated  that  the  SCS  solutions  for  the 
T-1  fiducial  were  relatively  poor.  The  high  standard  deviations 
for  this  point  may  be  due  to: 

1.  Refraction  of  rays  passing  through  the  seat  back 
window . 

2.  Glare  from  both  window  and  fiducial  as  the  seat 
traveled  past  individual  lamps. 

3.  Angle  between  the  surface  of  the  fiducial  and  the 
ray  to  camera  14  was  very  small. 

In  general  the  fiducial  surfaces  were  very  reflective  and  diffi¬ 
culty  was  experienced  with  recognizing  the  centers  of  all  at 
various  times  throughout  the  tests. 

Calculated  values  of  velocity  and  acceleration  were 

probably  degraded  as  a  function  of  frequency.  A  study  by  Mr. 

Mohlman  of  error  induced  by  smoothing  displacement,  velocity,  and 

acceleration  data  with  a  moving  quadratic  arc  fit  to  eleven  points 

2 

will  soon  be  published.  The  study  was  based  in  part  on  the 
analysis  of  sinusoidal  displacement  data  sampled  at  2  millisecond 
intervals.  The  sinusoidal  frequencies  analyzed  were  varied  from 
2  Hz  to  35  Hz.  The  results  of  this  portion  of  Mr.  Mohlman's 
study  were  presented  in  Figure  2l  and  Table  20. 
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SECTION  4 

PICTOGRAPHIC  PRESENTATION 


A  need  was  seen  to  exist  for  a  metnod  of  presenting,  in 
a  compi  e'.v;nsive  manner,  the  sequential  reiativ*?  displacements  of 
bodp'  S'V:  x-i.t ,j3  chc'.-  respond  to  rmpact  rnp’Ut.;. .  Program  RSD  was 
devei.-red  to  orocess  data,  digitized  from  selected  frames  of  motion 
pict  .  -  recor  .inqs  of  laboratory  simulat.ons  of  -G^  impacts,  to  a 
ser.’  os  .0:  Lime-incremented  pictograms  of  body  segment  positions 

anc  resti'cint.  narness  strap  di  sp  lacements  relative  to  the  seat. 

process  was  developed  f-,r  the  Biomechanical  Protec¬ 
tion  B-*  a:.Ln  of  the  AF  Aerospace  M./dica  ■.  Research  Laboratory 
(AKRL/BBP)  located  at  Wright-Patterson  Air  Force  Base  (WPAFB) , 

Ohio . 

It  was  developed  to  minimize  the  manual  effort  required 
to  cc'nvert  digitized  data  to  plotted  pictograms.  The  processing 
program  is  written  in  FORTRAN  langu  :':e  and  utilizes  library  rou¬ 
tines  avMiable  on  the  CDC  com.puter  systems  at  Aeronautical  Systems 
Divisivr.'s  Digital  Computation  Facility  (ASD/AD)  at  WPAFB. 

4.1  PROGRAM  RSD  INPUT  REQUIREMENTS 

This  section  describes  the  content  and  format  of  the  data 
required  to  execute  the  program  RSD.  This  program  draws  six  graphs 
on  the  CALCOMP  plotter  which  show  the  position  of  the  head,  shoulder, 
elbow,  wrist,  hip,  knee  and  ankle  at  six  time  points  during  the 
test.  The  six  graphs  are  plotted  on  a  report  size  page  (6-1/2  by 
9  inches . 

Execution  of  the  program  RSD  requires  the  CCAU  and 
CCPLOT1036  CALCOMP  plot  libraries.  The  CALCOMP  plot  output  file 
is  written  on  file  TAPE?. 
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The  first  eight  cards  described  below  define  the  test 
parameters  and  the  remaining  six  sets  of  six  cards  each  defi'ie 
the  input  data  at  the  six  time  points.  The  variable  names  used 
in  the  program  are  included  with  the  data  description.  All  re¬ 
ferences  to  the  y  axis  in  this  text  and  in  the  program  source 
listing  (Appendix  C)  should  be  interpreted  as  the  chair  z  axis. 


Card  Number  1  --  Title  Card 


Columns 

Format 

Variable  Name 

Description 

1-60 

6A10 

TITLE 

Title  or  caption  printed  below  the 
set  of  six  graphs.  This  title 
should  be  centered  in  the  60  column 
field. 

Card  Number  2  -- 

MISC.  data  in 

inches 

1-  5 

Card  ID,  —  not  read  ! 

by  the  program 

6-12 

F7.0 

DPS 

Distance  between  Lexan  panel  and 
seat  side  planes 

13-19 

F7.0 

DSC 

Distance  from  seat  side  fiducial 
plane  to  seat  center  line 

20-26 

F7 . 0 

DPF 

Distance  between  fiducials  on 

Lexan  panel 

27-33 

F7,0 

DSF 

Distance  between  seat 

side  fiducial. 

34-40 

F7.0 

XSB 

X  shoulder  belt 
attachment  point 

41-47 

F7.0 

YSB 

y  shoulder  belt 
attachment  point 

48-54 

F7 . 0 

XLB 

X  lap  belt  attach¬ 
ment  point 

relative  to 
seat  origin 

5  5-61 

F7.0 

YLB 

y  lap  belt  attach¬ 
ment  point 

62-68 

F7 .0 

XASSF 

X  aft  seat  side 
fiducial 

69-75 

F7.0 

YASSF 

y  aft  seat  side 
fiducial  _ 
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Card  N'umber  3 


--  Breadths  across  fic;aci..is  ut'.i  >  bt: 
data  are  in  counts. 


Col  uri 

ns  Format 

Variable  Name 

Description 

1-  5 

Card  ID 

o-lC 

F7.0 

B/\F  ( 1 ) 

flip 

13-19 

F7 . 0 

BAF (2) 

Knee 

20-3b 

F7 . 0 

BAF( 3) 

Ankle 

2  7-33 

F7  .  0 

BAF  ( 4 ) 

Shoulder 

3  4-40 

F  7 . 0 

BAF ( 5 ) 

E 1  bow 

4  :-.  4  7 

F':’  .  0 

BAF ( 6 ) 

Wrist 

4  d  -  ■  4 

F7  .  0 

BAF  (7) 

Traceon 

5  3  -  O  1 

F7 . 0 

BAF (8) 

Nose 

b  2-  6  3 

F7 . 0 

BAF ( 9 ) 

Harness  lap  pucKle 

69-75 

F7 . 0 

BAF (10) 

Shoulder  harness 

Card 

Number  4  -- 

Panel  and  seat 

fiducial  data  ir  counts. 

1-  5 

Card  ID 

6-12 

F7 .0 

XPF 

X  ■  Lexan  Pan<-'1  F.\D  rrauciai 

13-19 

F7.0 

YPF 

y  -  Le.xan  Panel  FivD  fiducial 

20-26 

F7 . 0 

XPA 

X  '  Lexan  Panel  AFT  fiducial 

7  -  3  T 

F7 . 0 

YPA 

y  -  Lexan  Panel  AFT  fiducial 

34-40 

F7 .0 

XSF 

X  ~  Seat  Side  FWD  fiducial 

41-47 

F7 . 0 

YSF 

y  Seat  Side  FWD  fiducial 

48-54 

F7 . 0 

XSA 

X  ~  Seat  Side  AFT  fiducial 

5  5-61 

F7 . 0 

YSA 

y  '  Seat  Side  AFT  fiducial 

5  to  7 


X,  y  coordinates  used  to  comoute  radii  oi 
body  elements  (in  counts). 


'  ir  i  Numbers 


dui'i  Number  5 


Fo rma  t 

Variable  Name 

Description 

1-  5 

Card  ID 

6-12 

F7 . 0 

XI  (2) 

X  -  First  )cnee  point 

13-19 

F7 . 0 

Y1  (2) 

y  ~  First  ]<nee  point 

20-26 

F7 . 0 

X2(2) 

X  -  Second  Icnee  point 

2  7-33 

F7 . 0 

Y2  (2) 

y  '  Second  l:nee  point 

34-40 

F7 . 0 

Xl(3) 

X  '  First  an)<le  point 

4  1-47 

F7 . 0 

Yl(3) 

y  ~  First  an)<le  point 

48-54 

F7  .C 

X2  (3) 

X  ~  Second  anlcle  point 

3  '  -  6  1 

F7 . 0 

Y2  (3) 

y  '  Second  an)<le  point 

Card  Number  6 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  shoUj.';er 
[.\1(4),  etc.]  and  the  elbow  [XI  (5)  etc.]. 

Card  Number  7 

Same  format  as  Card  5  above  for  the  x,  y  points  for  the  wrist 
[XI (6) ,  Y1 (6) ,  etc. ] . 

Card  Number  8  --  Trageon  and  eye  points  required  to  compute  the 

angle  between  the  Trageon-Nose  line  and  the 
head  z-axis  (in  counts)  . 

1-  5  Card  ID 


6-12 

F7 . 0 

TX 

X  '  Trageon  point  ^ 

13-19 

F7 . 0 

TY 

y  -  Trageon  point 

measured  when 
the  head  z- 

20-26 

F7 . 0 

EX 

X  ..  Eye  point 

axis  line  is 

27-33 

F7 . 0 

EY 

y  ~  rye  point 

vertical 

(Note  that  the  head  and  hip  radii  are  computed  using  the  center 
points  from  the  0  frame  readings) . 
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Film  Data  -  the  following  six  cards  are  required  for 
each  of  the  six  plots. 


Card  Number  1  — 

Time  in 

milliseconds  for  this  set  of  film  data 

Columns 

Format 

Variable 

Name  Description 

1-  5 

ID 

or  frame  number  (e.g.  TIME  = 

6-  8 

A3 

ITM 

Time  in  milliseconds 

Card  Number  2 

1-  5 

15 

Frame  number 

6-12 

F7.0 

XSFF 

x 

-  Seat  forward  fiducial 

13-19 

F7.0 

YSFF 

y 

~  Seat  forward  fiducial 

21.-  26 

F7.0 

XAFF 

X 

~  Seat  aft  fiducial 

27-33 

F7.0 

YAFF 

y 

~  Seat  aft  fiducial 

34-40 

F7.0 

X(l) 

X 

-  Hip  center  point 

41-47 

F7.0 

Y(l) 

y 

-  Hip  center  point 

48-54 

F7.0 

X(2) 

X 

-  Knee  center  point 

55-61 

F7.0 

Y(2) 

y 

~  Knee  center  point 

Cards  3  through  6  have  the  same  format  as  Card  Number  2  above; 
they  contain  the  x  and  y  coordinates  of  the  center  point  for  each 
variable.  The  number  in  parenthesis  is  the  index  of  the  x  and  y 
arrays . 

Card  Number  3 :  Ankle (3),  Shoulder (4),  Elbow (5),  and  Wrist (6). 

Card  Number  4 :  Trageon(7),  Nose(8),  Lap  BuckleO),  First  Shoulder 
Harness  (10) . 

Card  Number  5 :  Next  four  Shoulder  Harness  points  (11  to  14) . 

Card  Number  6 ;  Last  two  Shoulder  Harness  points  (15  and  16). 

(Note  that  the  seven  shoulder  harness  points  are  assumed  to  be 
Listed  in  sequence  from  the  buckle  to  the  top  shoulder  point; 
that  is,  with  increasing  y  values.) 


4 . 2 


F I LM  D  i  G I r  ;■  1 NG  P  ROi  ’ EDU  RE 


The  title  to  be  printed  below  the  pictogra";:'  '  ir-:!  1,  was 
manually  entered  '.’ia  the  '-ara. 

TJn  '  eio  ■■  --v  e  .‘'  lu^red  (Card  2:  w.  r .  •.  e  ;  -  iy  en- 
teree  via  th’j  .. 

The  v.ilues  b:  e.idths  acrwss  fiducials  (C  aro  j  ;  wer.. 
manually  entered  via  the  keyboard.  BAF ' s  1  thru  S  were  obtained 
t  ic"’.  pretest  measurements  form.  BAF's  9  and  ir  c  ntsidered 

to  be  constant,  the  shoulder  st  ip  center-center  v.i.  -'  inC'  .■  being 


6.38  inc.hes  at  the  si 

n-ile  tree  anu  1  j 

..nch  just  abco.  ■; 

in-.  ..j.ickle 

Loops.  The  distances 

betwcc;  .jo:  .ers 

or  the  sheUin.n 

ij-ips  .lere 

.mean  .r-cd  prior  to  sev 

“■'ra  1  1  -'Sts  :  he 

•enstant  w: th 

, 

frem  t:io  sin'U'le  tree 

to  thvj  :  l.,  s  , 

iT.'.  1  V.'''  '  f* * 

sidered  to  be  parallel  .--.at  s].  <  -  :  . 

The  film  rec  -r  :•  .n  ■■  1 1  ■  -ted 

on  the  ''  r-j'i':  •■■rs  :'■■■  .  r,;*.  hr  v--;?  . 

The  film  was  trine;.  ,t.  .  until  trie  frame  i:.  which  .tr'i.e  flash 

was  first  obse’-ve  ;  ..  ..  ..r^-  tnd  ‘ho  frame  ctiinter  ■  reset 

to  zero.  The  fi!-,  was  transportet:  forw-ard  in  the  siitdo--  ;  I'le 
mode,  the  operator  noting  the  frame  numbers  at  which  i  iur-'-h, 

eighth,  twelfth,  sixteenth,  ind  wentieth  0.01  secon  •  r  I'.c  pulses 
appeared.  The  number  ;e-  frunec  t:  !•  no  r'tr.  u  y  ',•  fi-.placed 

from  frame  zero  was  subtrs  .•■-e  i  •:  oa:h  r.  •  ti.,-.  ;  niimlaers 

to  determine  the  :  r.i -.•us  ■•  ;  ‘  a  •  •  •  ,  ■ 

The  film  was  transpor'tc  oacKward  wnij-e  ■.  t  :  .'i  ;b- 

served  the  changing  attitude  ..  • sibiot-t'''  h'  .  fi.e  uumt  or 
of  the  frame  in  which  the  head  appeared  to  b--’  er-‘.“  w  is  nt'*  ■ 
Identification  of  this  frame  is  strictly  subfectivo,  ,  ‘.he 

error  resulting  from  this  judgment  remains  cons'  i  ’  *.  .  i 

the  processing  of  data  from  each  test. 


After  the  film  had  been  returned  to  frame  zero  the  pro¬ 
jected  image  coordinates  of  the  reference  fiducials  on  the  lexan 
panel  and  the  side  of  the  seat  pan  were  digitized  in  the  order 
specified  in  the  format  for  Card  Number  4. 

Two  points  were  read  at  each  of  the  joints  on  the  subject's 
left  arm  and  leg  in  the  order  specified  in  the  formats  for  Cards 
5,  6,  and  7.  These  points  were  digitized  to  define  the  diameter 
of  the  circles  representing  the  joints  on  the  pictograms.  The 
ankle  of  the  subject  was  not  in  the  field  of  view  at  frame  zero, 
so  the  film  was  transported  to  a  frame  in  which  it  was  visible. 

The  readings  of  the  ankle  points  were  read  and  a  tracing  was  made 
in  black  ink  on  clear  acrylic  sheet  of  the  fiducials  on  the  ankle, 
knee,  and  intermediate  point  on  the  lower  leg.  The  tracing  also 
included  the  outline  of  the  shin.  This  overlay  was  later  used  to 
locate  the  ankle  fiducial  when  it  was  outside  the  field  of  view. 

The  film  was  transported  to  the  frame  noted  as  tl  one 
in  which  the  head  was  erect  and  the  coordinates  of  the  fiui.  inis 
at  the  trageon  and  nose  were  digitized  as  specified  in  the  format 
for  Card  Number  8. 

The  film  was  returned  to  frame  zero.  At  this  ^>oint  it 
is  well  to  note  the  possibility  that  on  some  films  tie  synchronizing 
flash  can  be  bright  enough  to  wash  out  the  images  of  sonie  of  the 
fiducials.  Had  this  occurred,  time  zero  data  would  have  been 
digit!  i:d  from  frame  -1  (99999  on  counter). 

Time  after  initiation  (msec)  was  entered  manually  via  the 
keyboard  as  specified  in  the  format  for  Film  Data  Card  Number  1. 

The  coordinates  of  the  projected  images  were  digitized  in  the 
order  specified  in  the  formats  for  Film  Data  Card  Numbers  2  thru  6. 
All  points  on  the  seat  and  the  subjects  were  defined  by  the  fidu- 
■lais  with  the  exception  of  the  shoulder,  the  elbow,  and  the  wrist. 
As  '■.rv  arm  elevated,  the  arm  segments  demonstrated  rotary  motion 
•ai.s;-',;  tl.'-'  fiducials  on  the  elbow  and  wrist  to  rotate  forward 
:.'l  1  *  1 to  the  image  of  the  arm.  (Dummies  with  pinned  joints  do 
o'V  ie-’ -n  s  t  r  1 1(.'  this  rot.3tion).  At  the  shoulder,  elbow  and  wrist 


1  S  0 


the  points  digitized  were  the  estimated  geometric  centers  of  the 
images  of  the  joints. 

The  first  point  diqitized  on  the  harness  was  the  center 
of  the  buckle.  The  second,  third,  and  fourth  poiiits  were  digize  : 
upward  along  the  left  shoulder  .strap  between  the  buckle  and  the 
clavicle.  The  fifth,  sixth,  and  seventh  points  were  diaitized 
upward  (rearward)  along  the  left  shoulder  strap  between  t.he  c  1  a 
icle  and  seatback. 

4.3  RESULTS 

The  pictograms  generated  by  the  test  case  are  illustrated 
in  Figure  31 .  The  format  and  the  presentation  of  the  body  segment 
positions  appear  to  accurately  reflect  the  projected  images  in  the 
film  frames  from  which  the  data  were  extracted.  The  projection 
of  the  shoulder  strap,  as  plotted,  does  not  accurately  reproduce 
the  observed  path  of  the  strap.  A  need  to  review  tne  technia\ie 
used  to  digitize  the  strap  data,  and  to  im.prove  tlie  method  of 
fitting  a  curve  to  the  data  is  indicated. 
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APPENDIX  A 
PROGRAM  HIFPD 


I 


=HUL,Ra*i  nlF  =  3(lNPUT,OUTPUT.TAPt5.=  IN'’UT,TaPe(-  =  riLir'JT,Ta  =  f,’)  QOOlOO 

JI«£  NS:ON  Res<  302)  ,  <  3u  2)  ,HS<  30  2)  ,  «m  (  3C  2  >  ,  <<S2  (i-2)  30  2)  ,  00  0120 

1  MEAGL  (8)  ,HEA0P(8)  ,«EA0r-(8' ,0tTA(tC2<.)  ,  VNPP  (  3  i  .  ■  ><Pi  !  5)  090140 

2,  .302)  ,  V.’  <30?!  ,  A3(  302)  ,A2(  302  '  0  00150 

EGMMON  JD,J«,  NN  ,NP  ,NC1  ,NC2  ,  XK  (  302 ,6)  ,  22  I  3C  2  ,  fa  )  ,  H,AL(  8,.  000160 

;  TF?  (  382)  ,x  (302, 8  )  ,  7  (302 ,8)  ,ID  (i2' ,  IP  112)  .ACC  (  30  2  .  ,  000180 

TACC.  (302)  ,  CA^  (  8)  ,  XD  (  30  2)  ,  2C  (302)  ,I  (30?  .  ,CI  (  302  )  ,G:  (302  )  000200 

common  /CPL7C7  HEADL .TITLE (10 ), IPX, OrfaF  300220 

F  Q'JI  VAL  EMCE  (RE5(l),H';(l),OI(l)),())EL(l),HH(l),OCil)),:AC'3(l),HS2(0002  40 
11 )  )  ,  (ACCG  (1)  ,  MH2  (  1)  )  000260 

r,  (  XX (1, 1)  , VX( 1 )  )  ,  ( XX (1 ,2)  , AX ( 1) )  , <22(1, 1)  ,  VZ ( 1 )  )  ,  (22 (1, 2)  ,A2  (1) )  0  0  02^0 

DATA  ENDJ/IOmEND  /,  YN PR/3H VE S, SHY ES , 3H  NO/ , TNPlZ 7H YES, 3h  N0000280 

I,3H  NO/  000303 

OATA  HEADR/9H  RANGE, 9M  CLED,9H  hIP,9h  KNEE,  030320 

!  9M  SHOULDER,  9M  £  lE  0)« ,  9mh£  AD  PT  1,9HH£A0  PT  2/,  000340 

r  HEADL/5HRAN&E,4HSLEO,3HHIP,4HKNEE,8HSHOULDER,5HFLBQH,9HHEAO  PT  1000360 

3,  9MHEA0  PT  2/,  000380 

4  hEAOC/Zk  mange. 7H  SlEn,6H  HlP,7h  KNEt-,9M  SHOULDEO  0  04  0  0 


5R,7)‘  EL0O4,9HhEAO  PT  l,9HHEAr  pT  2/ 


WYGE  IMPACT  facility  PHOTOMETRIC  OATA  ANALYSIS  PROGRAM 


000420 

’000440 

>000460 

000480 


Q. ..... 

W 

000520 

84 

parameter  name 

XERSUS  10  CODE 

000540 

C 

CODE 

NAME 

0QOS60 

c 

03D5SO 

c 

1 

RANGE 

000600 

3 

2 

SUED 

000620 

c 

3 

HIP 

000640 

c 

i* 

KNEE 

000660 

c 

S 

SHOULDER 

000680 

c 

6 

ELeo)( 

000700 

- 

7 

HEAD  PT  1 

00072C 

c 

8 

HEAD  PT  2 

000740 

r*. 

030760 

IRX=l  — 
IRX=1  — 

ITrPE=0 

ITYPE=1 

IPR<1  -> 

ICAM=0  - 
ICAm=1  - 

IA0.J  =  0  - 
IAOJ=l  - 


IPL  =  C 


NO  x-AxiS  Change 

CHANGE  POLARITY  OF  X-AXIS  OATA  (MULT. BY  -1.0) 

READ  AND  PROCESS  ALL  0  PARAMETER. 

READ  ANO  PROCESS  ONLY  PARAMETERS  1,  2,  7  AND  8. 

PRINT  RAW  DATA  IN  COUNTS 

CAMERA  IS  NOT  ON  THE  SLED 

camera  is  on  THE  sled;  TRANSLATE  AND  ROTATE  DATA. 

NO  X  OR  2  adjustment  READ  OR  APPLIED. 

YAOJ  and  ZAOJ  are  read  and  added  to  AL^  X  AND  2  DATA 
9EF0RE  any  tab  OUTPUT. 

print  and  Plot  linear  vel  and  accel  data 


‘OODSOO 

000820 

000840 

000860 

000880 

000900 

OdSBZC 

000949 

003960 

000980 

031000 

OC1020 

031040 

001060 

0C1080 

001100 

301120 

001140 


1 


I  Pi  -1  — 

J  H  - 

.  I  K  L  M  •  4 

A 

.%  1 !  w  ;  A  * 

u :  1  b  C' 

c 

IPL=:?  -- 

U  M  i  ^  i. 

ji 

t  N 

*  '  C  c  l  J  A  7  1 

J : :  1  ‘i  t 

Q  *  1  J  0  - 

c 

1PA  =  1  -  — 

ANt  PlUI 

Ko 

JL-*^  Vt.4.  AN!) 

A  C  C  E.  .  kjA  I  A 

ij  ulC  .  ij 

c 

lPa=i  - 

ANOUU£-'" 

V(^ 

1 

AK.  ACC  C .  Ji 

A 

D  a  1 1'  -  c 

c 

IPA=2  — 

OMIT 

fi  No  Jl  Ak 

Vl 

A.H.y  ACCFl  'JA  1 

A 

a  u  1  c  . 

c 

0  c  1 :  “  0 

c 

IP,:-;  -  “ 

M 

ahZ  ••  L  .  T 

*•' 

t  n 

A*-  r  I  t  ^  Vl-  fC 

c  L  J  -  ■  • 

:  u  1  ^  n '. 

IPC=1  — 

i-  RIUI 

1  - 

Vt 

*  '■J  '  ‘J .  c  ..  A  * 

S  .  1  . 

c 

PC  =  ? 

OMIT 

f-  A  1  c 

v: 

.A  . 

0  01  i  *4  U 

Du;  A',r 

n 

■J  ISPLAi'Eri' 

NT,  V£ 

A  ■  ^  A  ' 

r  * 

i. 

MtfA 

•I  }  Lli  '  o-  ‘  “ 

'  St  . 

:  0  J 1 3  c 

uata.  id(T.  <Nr,  rfti.)  ^oniciv.  tm-  **..  <-fis  u.-iab;: 

FOR  PAkAHEIER  ANO  reference  PECP  E  CI  I  .  t .  ailR.’C 

a  OtA-.C 


c 

*0(1)  —  I.UNIAINC  PARAit  TEfc  llJcM  *;)C‘. 

DC  ;*.(■: 

C 

IR(I) - CONTAINS  REFERf).^:  IDEn)  roCE 

0  a  1  -  B  0 

c 

0  CIF  0  L 

c 

title  (1)  CCNIAiNC  THE  DATE 

a  0 1  s  2  0 

c 

TirLE‘(2) - CONTAINS  1  (E  TEST  hUHoEK 

a  0 1 E  K  c 

c 

TITLEiS)  - >  TITLE(IO) - CCNfAiN  AN  BC  ,:  TOR  A i  ; 

Pt 

1  I  ::  C. 

a .  1 5  F, : 

c 

a  a  IS?,  a 

V 

CAl  (J)  contains  (HE  CAlIBRAiION  FacTlRS  p  Ok  PARAhE, 

TL^C  . 

0  Jlf-UD 

o 

Through  s. 

ar ibc . 

c 

oait-r 

c 

JO  — •  FRAHE  NUHBEF  of  FIRST  FRAhE  PiCTrL.'  ^N  .JRA.,-- 

-  Vt'^S.UV 

a ;  1  h  6  a 

w 

SLED  plot.  ^R£DE^INEl.  AFTER  iNPOIi 

00lD?t 

c 

)R  - —  frame  number  of  .AST  FRAME  P'.OrTEO  OH  PAAAM- 

T  ; 

k  v£"  S  !S 

n  c ;  7  J  : 

SLED  Plot,  (redefinei  after  input) 

oaiTjc 

c 

CALL  PLOTSCOATA.IOZA.D 

a  D174C 
0D17bC 

c 

MAXN  IS  THE  MAXIMUM  NUMBER  OF  FRAMES  HHICH  CAN  BE  PROCECSi 

c 

NT  T  H 

001780 

c 

ABOVE  ARRAT  DIMENSIONS. 

0oi?cr 

c 

MAXN=1E0 

a  ai  S2C 

MAXN=302 

OOlFp? 

Cl  =-  1.  OEIO 

0  aiSbO 

CAE ' 1) =0, 0 

0  0 1  s 

ICAL  (1)  =1 

auiFC' 

‘'T=3.1416S2. 

o'-iQ?: 

PI2-2.( »PI 

ori9LC 

PI  3V  =  3.  C  *PI  0 

a  r^ipfa , 

r 

NP  13  The  NUMBtS  OF  POINTS  JSl'i  I-  1 -c.  OJA  .v  5  !  I  .  :tT 

r  1  . 

oaip“. 

c 

NP  =  11 

0  120.'- 

c 

n  2  0  7  '' 

c 

RLtO  TLS(  setup  „oPDS. 

C  j2C  - 

c 

TITlEtl)  CONTAIN'.  The  OiTl. 

a  C2n  f 

0 :  ?  u :  r 

RE'Ao  (s ,  1010)  T  T  Ti  £  ( 1 ) 

5  PE  AD  (5, 1310)  (  TIVLE  (I  I  ,  •  =3,  IC  .  aCCl?'' 

IF  (TITLE(3)  .FQ.  EMJJ)  G,"  I G  “PP  COClPf 

READ(5,1005)  NPl,NP?,jn,JP  >.CClbL 

IF  (NPi  .lt.  3)  sPi  =  ii  Old": 

IF  (NP3  .lT.  3)  NP^-ll  wOC.-t 

a  rzrrc 
0.::-: 


\ 


TITLEII’)  CONIAINC  THE  TEC) 


READ (5,1030)  TITlE(2) ,IRX,1PR,ITTPE,IPL,ICAH, 
1  (IDd)  ,IR(I)  ,Ial,12),NP,DTLP 
IF  (NP  .LT.  3)  NP*11 

IF  (lAOJ  .GT.  0)  REA0(5,lD2a>  XAOJ.IADJ 
REAO(S,1020)  or, (CAL (J) ,Js2,S> 

IF  (JO  .LT.  1)  JOst 
IF  (JR  .LT.  1)  JR»995 
WRITE(6,250C)  TITLE, NP 
IF  (lAOJ)  440,440,450 
}  lAOJsQ 
GO  TO  455 
1  IADJ>1 

>  IF  (ICAH)  460,460,465 
B  ICAN>0 
GO  TO  470 
5  ICAM«1 

]  IF  (IRX)  400,480,490 
B  IRXxO 
GO  TO  495 
3  IRXsl 

;  IF  (IPR)  500,500,505 
3  IPR»C 
GO  TO  510 
5  IPR=1 

a  IF  (IPL-l)  515,525,520 
5  XPLsC 
GO  TO  525 
3  IPL*2 

5  IF  (IPA-1)  530,540,535 
a  IPAsO 
GO  TO  540 
5  IPA»2 

P  IF  <IPC-1)  545,560,550 
5  IPC*0 
GO  TO  560 
i  IPCs2 
)  1  =  1 
IFLAG=8 
NC1=1 
NC2s999 
IFRO—lOO 

IF(OT)  565,565,570 
5  OT»9CO.h 

a  IF  (ITTPE)  575,575,580 
5  ITTPEsO 
Jl»3 

GO  TO  IL 
a  ITYPEal 
J1*T 

5  REAO(5,1000>  ICO ,  IFR  (I )  ,  ( X  (I ,  J)  ,  Z  (I  ,  J)  ,  J«1 , 2 ) 
1) 

00  590  Ja3,6 
X(I, j>>c.a 
a  z(i,J)=o.o 


002260 

IPA,IAOJ,IPC, JO, JR, M, 002280 
002300 
002320 
002340 
002360 
002380 
002400 
002420 
002440 
002460 
002480 
002500 
002520 
002540 
002560 
002580 
002600 
002620 
802640 
002660 
302680 
002700 
002720 
002740 
002760 
002790 
002800 
002820 
002840 
002860 
002880 
002900 
002920 
602940 
062960 
002980 
003000 
003020 
003040 
00306C 
003080 
003100 
003120 
003140 
003160 
083180 
003200 
303220 
003240 

,  tx(l,  J)  ,Z  (I  ,  J)  ,J=7, 8063260 
003280 
003300 
303320 
003340 
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IF  (ICO-IJ  595,595,100 
595  IF  (IFR(I)-IFRO)  600,600,610 
600  WRITE(6, 21.10)  IFR(I) 

IFLft6=l 

610  IFR0=IFR(I) 

GO  TO  4C 

FROM  here  to  label  115«  READ  A  MAXIMUM  OF  *MAXN*  FRAMES  OF  :  t<P; 

10  REAO(5,ia00)  ICO,IFR  (I) ,  <X  (I  ,J)  ,Z(I,J)  ,  Jsl.L) 

FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  DATAl 
IF  (ICO-1)  15,15,100 

IF  (ICO-1)  100,15,100 
15  IF  (IFRlD-IFRO)  20,20,25 
20  HRITE(6,2410)  IFR(I) 

IFLAG=1 

25  R£AO<5,100a)  ICO ,  IFRO,  (  X  (I ,  J)  ,  Z  ( I ,  J)  ,  ,  6  ) 

FOLLOWING  CARO  CHANGEO  TO  INPUT  PAPER  TAPE  DATA) 

IF  (ICO-2)  30,30,70 

IF  (ICO-2)  70,30,70 

30  IF  (IFR(I)-IFRO)  35,40,35 
35  MRITE(6,2400)  IFR(I)  ,IFRO 
IFLAG*1 

<.0  T(I)  =FLOAT<IFR(I)  ) /DT 

IF  (IFR(I)  .EQ.  JO)  NClsI 
IF  (IFR(I)  .EQ.  JR)  NC2>I 
400  'XAOJ*  AND  'ZAOJ'  TO  I-TH  DATA  POINT) 

IF  (lAOj)  55,55,42 
42  00  45  J>1,2 

X(I,  J) 3X (I, J) 4XA0J 
45  Z(I,J)sZ(I,J)+ZAOJ 
00  50  J«Jl,e 
X(I,J)*X(I,J)*X40J 
50  ZII,J)*Z(I,J) ♦ZAOJ 
55  IF  (I-MAXN)  60,60,65 
60  I=I>1 

IF  (ITYPE)  10,10,585 
65  HRITE(6,2840)  MAXN,IFR(I) 

IF  (ITYPE)  10,10,585 
70  MRIT£(6,Z000)  ICO,IFRD 
IFl4&=1 
GO  TO  10 

DC  IF  (ICO-9)  110,115,110 
110  WRITE(6,2000)  ICO,IFR(I) 

IFLAG=1 

IF  (ITYPE)  lu,10,585 

115  N*I-1 

DTT»(T(N)-T(1))/FL04T(M-1) 

IF  (IRX)  118,118,116 

116  00  117  1  =  1, N 
00  117  J«l,t 

117  X(I, J)»-X (I, J) 

PRINT  TEST  parameter  SUMMARY  PAGE. 


: c  J-  ■ 

'  t  T  1  0  0  3  ■  L'  ; 
C  J  3  S  t 
0  CoS ♦ ( 
0 .  31  F:: 


0  0  “  .  T  1. 

(j  (j  •• '  I 

i  r.-,;  .  ' 

C  C  4 1 .  c 
0  c  4 1  r 
Cl  C  H  1 6  L 
0  J  1 F  r 
F  ) c 
c  -  w;  : 
li  i,  - - 1 

W  4/  ~  IL  - 

0  c  M  3 1  r 

C  '  -T 

l/  0  ^ 

0  O'*-  ■'  ■■ 


i  10 

MRlTf.C.JlUCi  iI,’-l,M. 

0G4460 

HR  Hi  lri..liCj  r;Hi(?l  ,N,JT,I>'>,ItTot,ICAM,lADJ,IPfi,IPl 

, IPA, IPC, M, 004480 

1 

(  I  0  (  I  ,  leCl  ,  H  1  ,  M) 

004500 

HR  H  2 1 2  cl  1  Mi  A  oi  1 1  1  ,  1  =  t ,  S ) 

004520 

HklTilb.JlJC)  iCAilH.Ha.Sl 

004540 

IR  lIACi  .H.  01  hr:  re  16,2126)  <A0J,7ADJ 

0  04560 

HRHf  lb  .ClHO)  HT 

004580 

HRHf  io,rtbO/  N 

C046DC 

HRHf.  l.,2lbl  TNPLi2-I»») 

004620 

hkH£(6,2160)  YnPRCPR.I) 

0  04640 

HRITti6,21Rri  YNOR  (  :  PL  *1  ,  ,  tNPL  <  IPi.Fl) 

004660 

HR  H  E  1  6 , 2180  )  YNPR  <  I  PA*l)  ,  TNPL  (IPAt  1) 

OO46SO 

HR:rE(6,217C)  rNPN(IPCFl)  ,TNPl(IPCfi) 

0  0470C 

DO  l3u  J-2,f 

004720 

IF  (  A6S  (CAl  (  Jl  )  )  120,125,120 

004740 

120 

CAL ( J) =1. 0/CAl  ( J) 

004760 

ICAL  (  J)  =1 

004790 

GO  TO  120 

0D480C 

125 

ICAL  IJ) rO 

004620 

HRIT6  16,2820)  HEAQUJ) 

004840 

130 

DONT  INUE 

004860 

HRIT£i6,257C) 

0  04680 

IF  (M)  137,137,132 

004900 

132 

UO  135  H=1,M 

004920 

J0=I 0( <) 

004940 

JR=IR (K) 

004960 

IF  <ICAl.<.J0i  .LT.  1  .OR.  ICAHJR)  ,  Li .  1)  GO 

TO  135 

0  94980 

HR  HE  (6,2210)  5, HE  AD  L(. JO)  ,HEAOl  IJR) 

005000 

13b 

continue 

005020 

137 

IF  (IPfi)  IRO, 140,165 

095040 

0  05060 

ORINT  rah  input  DATA  IN  COUNTS. 

005080 

0D5109 

mo 

WRITE (6,2500)  title, NP 

005120 

HRITE(6,2550) 

305140 

HRITE(6,2560)  HEAOC 

005160 

DO  146  I=1,N 

005180 

1  Hb 

WRITE  (6,2  580)  IF  R  ( I )  ,  (  X  ( I  ,  J)  ,  Z  ( I  ,  Jl  ,Ji=i,6) 

0352JQ 

WRITE  (6,2500)  title, NR 

0 J522D 

HRITE(b ,2552) 

005240 

WRITE  (6 ,2560 )  mEAOC 

U«5260 

005280 

COMPUTE  ANfj  PRINI  FRAi,F  10  FRAME  UlpFERENCES  IN 

COUNTS 

005300 

005320 

..F  (  ITYRE)  1h8,148,146 

905340 

1M6 

CO  1-.7  0  =  3,6 

005360 

xn( j)=c. 0 

005380 

1m7 

XD ( J)=C. 0 

005400 

1m8 

00  16(  I-»2,N 

305423 

to  (l)*x  (I  ,1)-  X  (l-l  ,1  ) 

305443 

20(l)=Z(I,l)-Z(I-l,l) 

305460 

XO(2)=X(I,2)-X(I-l,2)-XD(l) 

005480 

ZO(2)=Z(I,2)-Z(1-1,2)-ZO(1> 

005500 

DO  153  J=J1,8 

005520 

xO(j)=x(i,j)-x(i-i,j)-xDii) 

305540 

150  20(J)=Z (I, J)-0(I-1,J»-ZO<1)  0u556: 

WRITE ( 6 , 2580 )  lER ( I ) > ( XO ( J > , ZO ( J) , J =1 , 8 i  005580 

160  CONTINUE  005600 

C  CONVERT  DATA  ERQH  COUNTS  TC  E££T.  005620 

165  IE  (IFLAG)  170,170,167  005640 

167  WRITE(6,2500)  TITLE, NP  005660 

WRIT E ( 6 , 2830 >  005680 

GCT05  0957'^'' 

170  IE  (ICAM)  175,175,650  005720 

175  DC  185  1=1, N  005740 

-  005760 

C  HI  AND  H2  ADJUST  DATA  FOR  SHIFT  IK  RANGE  REFERENCE  READING.  005790 

“  005800 

M1=X (I,l)-X(l,l)  005620 

H2  =  Z  ( 1 , 1 ) -Z  (1 , 1)  0  056„0 

X(I,2)  =  (X<I,2)-HlCCALt2>  005660 

Z(I,  2)  =  (Z  (I,2)-H2I  ’CAL  (2)  0  058  90 

DO  180  J=J1,8  005500 

X  ( I  ,  J)  =  (  X  (I  ,  J)-M1)  *CAL  (  J)  0  05920 

130  2(  I,  J)  =  (  2  (I ,  J)-H2I ’CAL  ( J)  0  059,0 

185  continue  905960 

C  DO  8£iP  NP  =  NPi,NP2,2  0  059  80 

GO  TO  695  0  CbC  0  0 

o50  IF  (IPR)  655,655,660  0.60'' 

655  wrITE<6,2500)  TITLE, NP  uC6t.I' 

WRITE (6,25401  0060^0 

HRITE(6,2560)  HEAOC  ^.bC-'. 

C  call  subroutine  'ROTATE'  TO  ROTATE,  TRANSLATE,  AND  CALIBRATE  T-E  036100 

C  ON-BOARD  CAHERA  DATA  (ICAW>0).  0061:0 

660  call  ROTATECN, Jl.IPR)  006140 

C  COHPUTE  The  mean  and  standard  deviation  about  The  hEAN  for  SuEO  006150 

C  reference  OATAi  006151 

695  CALL  HEANl<N,X(l,2t,Z<l,2) )  906160 

Nls(NP-l) 72*1  006180 

N2=N-N181  006200 

N3  =  3*Nl-  2  0  062  '’: 

N4=N-n3*1  OObr," 

NN=N2-N1'1  00b2b0 

IF  (IPC8IPA-4)  700,800,800  00b2»0 

“  liObOOC 

COMPUTE  parameter  versus  SlED  DISPLACEMENTS.  006320 

^  [i  u 63 i* C 

700  DO  725  0-6360 

0  06  3  9C 

IF  (ICAL(J))  715,715,705  006400 

7u5  DO  7lC  1  =  1, N  OObn’’: 

XD  1 1 )  =X  (I  ,  J)-X  (I  ,2)  0  064,: 

710  ZD  (I  )  =Z  (I  ,  J(-Z  (I  ,2)  0  06460 

2.6489 

CALL  SM (T , XO, XX ( I , JJJ , N,NP)  006500 

call  sm(t,zd,zz(I,jj),n,np)  jnb'?c 

GO  TO  725  ">65-: 

715  DC  7  20  I  =  N1,n2  0  06=^60 

8X(I,JJ)=0.C  026580 

022(1, JJ)  =0.8  j  r;  ^ 


72 


I 


’25  COSTINL'f 

IF  (IPC-1)  728,728,743 
726  LINE=bC 

23  74C  I=N1,S2 
IF  (LINE-50)  735,730,730 
730  WRITE (6,2500)  TITLE, NP 
HRITE(6,2555) 

WR1TE(6,2565)  (  HEA  OC  (  J)  ,  J=  3 , 8) 

LlNE=  0 

L  PRINT  parameter  VERSUS  SLED  DATA. 

7  35  WRIie(6,25«5)  IFR  ( I )  ,  f  ( I )  ,  <X  X  (I ,  jJ)  ,  22  ( I ,  J  j)  ,  J  l ,  fc , 
LINF=lINE«-1 
740  CONTINUE 

IF  (IPC)  742,742,743 

742  IF  (NCl  .LT.  Nl)  NC1=N1 
IF  (NC2  .GT.  N2)  NC2=N2 
NN=NC2-NC1*1 

1P  =  1 

C  PLOT  PARAMETER  VERSUS  SLED  DATA. 
call  CPLT (T,0I  ,0C,IP) 

MRITE(6,2595)  IFR ( NCK , IFR tNC2) 

743  IF  (IPA-2)  745,800,800 

C  compute  angular  VELOCITT  and  acceleration:  mere  ’0  laser  775. 

745  XO(Nl-l)*PI 
20  :ni-i)  sPi 

IF  (ICAL  <3) +1081  (5)-2)  756,750,750 
750  DO  755  1=N1,N2 

HlsZZ(I,3)-ZZ (1,1) 

H2=XX<I ,3)-XX (1,1) 

C  SMOULDER  -  HIP  ANGLE 
XD (I ) =ATAN2(H1,H2) 

IF  (XD(I)  .LT.  0.0)  XD(I)  =  XO(I)  fPIZ 
IF  (A8S(XO(I)-XO(I-1))  .GT.  PI34)  XO  (I )  =  X  D  ( I)  «•  PI2 

755  CONTINUE 

CALL  DERIV1(T,X0,NS,N,NP,1) 

CALL  0ERIV1(T,WS,HS2,N,NP,2) 

GO  TO  753 

756  DO  757  I=N1,N2 
XD(I)=0.0 

HS  (I  )  =  0. 0 

757  hS2(I)=C.O 

758  IF  ( ICAL (7)*ICAL (8)-2)  762,759,759 

759  DO  760  I-N1,N2 

Ml ^ZZ (I ,5 )-ZZ (1,6) 

H2  =  XX (I ,5)-XX  (1 ,6) 

C  head  PT  1  -  mead  PT  2  ANGLE! 

ZD (I ) «ATAN2 (Ml ,MZ ) 

IF  (20(1)  .LT.  0.0)  ZO<I)=ZO(I)+PT2 

IF  ( AHS ( 2D ( I) -2D (I-l ) )  .GT.  PI34)  2 D ( I ) = 2 3 ( I )  ♦ P I  2 

760  continue 

gall  DERI  VI ( I , 20, mm, n, NP, 1 ) 

call  DEF  I  V '.  ( "^ ,  mm  ,  4H2  ,n,  np,  2) 

GO  ’■  C  7  6  3 


006621 

006640 

00666'' 

006630 

006700 

Su672: 
0067mO 
0  06760 
0u578C 
006500 
006820 
006840 
0  06B6C 
006680 
006900 
006920 
006940 
006960 
006980 
0070  00 
0070  20 
007040 
007060 
0070  SC 
00710P 
007120 
007140 
007160 
007130 
007200 
007220 
037240 
007260 
0  07280 
007300 
007320 
007340 
0  07360 
DC738C 
007400 
0  07420 
0  07440 
007460 
3 07480 
007500 
CC7520 
007540 
007560 
007580 
007600 
0  0  7620 
007640 
007660 
007680 
007700 


762  DO  764  I=N1,N2 
ZD(I)=O.0 
WH(1)=0.0 
764  HH2(I)=C.O 
768  LINE  =60 

DO  775  I*N3,N4 
IF  (LINE-50)  772,770,770 
770  WRITE(6,2500)  TITLE, NP 
MRITE(6,2551) 

HRITE(6,2520) 

LIN£=  0 

C  “RINT  ANGULAR  VELOCITY  AND  ACCELERATION. 

7  72  WRITE  (6,2550)  IFRd)  ,T  ( I )  ,  XO  ( I)  ,  HS  ( I )  ,  WS  2  ( I )  ,  Z  D  ( I )  ,  HH  ( I  )  ,  WH2  (  I ) 
LINE=LINE+1 
775  CONTINUE 

IF  (IRA)  780,780,800 
780  IP*2 

NN=N4-N3+1 

JD=5 

JR  =  3 

IF  (ICAL(3)*ICAL(5)-2)  790,785,785 
C  plot  angular  VELOCITY  AND  ACCELERATION  DATA, 

785  call  CPLT(T(N3),WS(N3) ,HS2(N3) ,IP) 

790  J0=7 
JR=8 

IF  (ICAL(7)'*-ICAL(8)-2)  800  ,795,795 
795  call  CPLT  (T(N3) ,NM<N3)  ,WH2(N3),IP) 

830  CONTINUE 

IF  (N  .lT.  1  .OR.  IPL  .EQ.  2)  GO  TO  5 
00  2C:  J=2,8 

IF  (ICAL(J))  200,200,190 
190  DO  195  1=2, N 

X(I,J)=  X(I,  J)-X<1,J) 

195  Z(I,J)*  Z(I,J)-Z(1,J) 

X(1,U)=  0.0 
Z(1,J):  0.0 
200  CONTINUE 
10=3 

C  202  DO  410  NP=NP1,NP2,2 
C  Nl  =  (  NP-1) /2*1 

C  N2=N-N1+1 

:  N3=3»Nl-2 

C  N4»H-N3*1 

NNxN4-N3*1 


COMPUTE  LINEAR  VELOCITY  A  NO  ACCEL  DATA  FOR  PARAMETER  10(0  WITH 
RESPECT  TO  IR(K)  !  HERE  TO  LA8EL  403. 


no  4(lC  K=1,H 

JD=I0(K) 

IF  (JO  .LE.  D  GO  TO  390 
JR  =  IP  (K) 

IF  (JR  .LT.  1)  GO  TO  395 


007720 
007740 
007780 
a  0  77  8  0 
007800 
007820 
0C78^(, 
007860 
0,;7881 
00^9" 0 
0  0  79  2'.’ 
00)94,; 
007960 
007980 
108000 
008020 
008:4" 
008060 
006080 
0  a  a  1  j . 
008120 
008141 
008161 
0  0  3  i  t  0 
0  0820  0 
008220 
008240 
00826C 
0  0  82  8'" 
0D831C 
008320 
008340 
00836: 
0083  8, 
00840  "I 
1.  J8420 
008440 
0^8460 
0  0  84  8  C 
008500 
008527 
0  08540 
008560 
008580 
00S(  10 
1086'’D 
008640 
008660 
008680 
038700 
0  08720 
0 J8740 
008760 
008780 
008800 


I 


If  (ICiKJD)  .lT.  1  .OR.  ICAlUK)  .LT.  1)  ,,C  TC  -.00 

)(MP=  Cl 

?MP=C1 

«*<=  Cl 

*MN=-Cl 

C*1N=-C1 

DO  212  :=1,N 

(JR-1)  2C5,205,210 

235  01 ( I 1=X ( I , JD) 

DC  (I  )  =2  (I  ,  JD) 
r,0  TC  212 

210  DI  C  )  =  X  ( I,  JO) -X(I  ,  JR) 

OC (I ) =2 (I, JD)-2(I ,JR) 

212  continue 

call  SM ( T ,01 , XD,N ,NP) 
call  SM (T ,0C, 20,N,NP) 

COMPUTE  MEAN  ANO  STANDARD  DEVIATION  OF  DIFFERENCE  BETWEEN  S'-OOTmE;, 

AND  UNSMOOTHED  DISPLACEMENT  DATA! 

call  me AN2 (N1 ,N2, 01, DC, XD, ZO ,SMX , SH X2 , S M2 , SM22 ) 

COMPUTE  MAXIMUM  X,  Z  AND  RESULTANT  DISPLACEMENT. 

00  260  I»N1,N2 

RES(  1)  =SaRT(XO  Cl)  •XO(I)  ♦ZD(I)»ZDtI)  ) 

IF  (XOCD-XMP)  220,226,215 
215  XMP=XO(l) 

TXMPsT (I) 

GO  TO  230 

220  IF  CXOll)-XMN)  225,230,230 
225  XMNsXO(I) 

TXMN*T(I) 

230  IF  CZOCD-ZMP)  21,0, 2i»C  ,235 
235  2MP=ZD(I) 

T2MP  =  T(  I) 

GO  TO  25u 

21.0  IF  (ZDCD-ZMN)  21,5,246,250 
245  ZMN=Z0(I) 

TZMN=T(I) 

250  IF  (RES(I)-RM)  260,260,255 
255  RM=RESCI) 

TRM=  TCI) 

260  CONTINUE 

COMPUTE  linear  velocity. 

call  DERIVICT, XD,VX,N,NP,1) 

CALL  OERIVICT , ZD, VZ,N,NP,1 ' 

compute  linear  acceleration  data, 
call  UERIV1(T,VX,AX,N,NP,2) 
call  0ERIV3 (T ,VZ,AZ,N,NP,2) 

LIM€»50 

DO  28.  I=N3,N4 

VEL<I)=SaRT(VXCI)»VX(I)*VZlI)’VZCI)) 

ACCC  I)  =:SaRT<AX  CI)»AX(I)*AZ(I)*AZ(I)  ) 

IF  (LINE-50)  275,270,270 
7’r  HRITEC6,2500)  TITLE, NP 

write  C6 , 2200)  HEADR  (  JC  )  ,  MEADL  ( JR) 


006“ 23 
0  09t -C 

0C8»b0 
0  OSfc  9  0 
00850: 
008520 
0 .8M4C 
0  08960 
.0655: 
OlPco: 
CI,9C2D 
009043 
0C9C6: 
0  09C  80 
0  T  9 1  3  0 
0u912C 
00913C 
0  0  913  2 
00914C 
009160 
009180 
009200 
009220 
009240 
009260 
009280 
009300 
009320 
0  09340 
009360 
009380 
009400 
009420 
009440 
0  09460 
0C948C 
009500 
009520 
029540 
00956C 
009580 
au960C 
009620 
D0964C 
809650 
0  09660 
009680 
009690 
009730 
009720 
009730 
009735 
009740 
009760 
009780 


» 


WRITE  (6,2510) 

LINE=  0  JOj'l.O 

C  RRINT  linear  DISPL,  VEl  AND  ACCEl  DATA. 

275  ACCG(I) =ACC(I)/32.2  0uS650 

WRITE  (6,2600)  IFR  (I)  ,T  <I  )  ,  XD  ( I )  ,  20  ( I )  ,RES  ( I)  ,  VEL  ( I )  ,  ACC  O.ACCidlQogeor 

LINE=IINE*1  uPg'^i'C 

230  CONTINUE  n  ..  p  . 

IF  (LINE-40)  33(i,33(,,  320  OCRgLC 

320  WRITE(6,2500)  TITlE.NP  0C996: 

HRITE(6,220C)  HE  AQR  (  JO  )  ,  HE  AOL  (  JR)  UPgR"!) 

33C  WRITE (6,2700)  XHP,TXHR  OluCuO 

WRITE(6,2710)  XMN,TXMN  010C20 

MRITE(6,2720) 2HP,T2HP  CIOPhG 

WRITE  (6 , 2730  )  2HN,TZNN  OlOPEO 

HRITE(6,2740)  RM, TRH  CLJCdC 

WRITE (6 ,2920)  SMX , SM X2 , SMZ ,SMZ2  JILTjC 

c  01(jl?c 

C  PLOT  linear  VEL(DCITY  ANO  acceleration  data.  aiJ.LO 

c  0  '  0  1  6  C 

35u  IF  (lOL)  360,360,400  QiOiac 

360  CALL  CPLT (T/NI) , VEL (N3) ,ACCG (N3) ,IP)  010200 

GCT0400  010220 

390  WRIT£(6,2500)  TITLE, NP  OIJJUO 

WRITE(6,2800)  K  010260 

GOT0  4t,0  01J2*C 

395  WPITE(6,2500)  TITLE, NP  010300 

WRITE(6,2810)<  010329 

400  continue  010340 

C  41C  CONTINUE  01036D 

GOT05  01033G 

999  WRITE<6,2900)  010400 

CALL  PLOTE  010420 

STOP  010440 

C  FOLLOWING  CARO  CHANGED  TO  INPUT  PAPER  TAPE  OATAI  010460 

1000  FORHAT  (11,14,  «F7.,fl)  0104SC 

ClOOO  F0RHAT(I1,I5. 8F6. 0)  310500 

IClfl  FORNAT<8A10)  010520 

1020  foRMAT{8F10.0)  310540 

1030  FORHAT(A5,8Il,  21 3 , 12 , 1 2{ 12 , 1 1 ) , I  3, F5.  0 )  01056C 

2B00  foRHAT(/  4X,*EpRQR  In  CARO  IDENTIFICATION  NUHBER !  CARO  I D =* , 1 2 ,  Q105  9C 

1  •:  frame  number  =»,I4)  oioedd 

2130  F0RMAT(//  4X,»TEST  N  OT  IRX  ITYPE  ICAh  IADJ  IPR  310623 

lIPL  IPA  IPC  M  SETS«*,12I4)  010640 

2110  FORNAK  3X,A5,I6,F14.3,I4,7I6,I5,7X,12(I3,I1) )  010660 

2120  FORMAK//  36X  ,  7  (  A 1 0 , 2X  )  )  01069C 

2130  FORMAT(  4X,*CALI0  DATA  IN  COUNTS  PER  F 00 T I • , F 9 . 3 , 6F 1 2. 3 )  010739 

2135  FORMAT(/  4X , ♦ A OJUSTMENT  FACTORS  ADOEP  TO  ALL  X  ANO  2  INPUT  OiTA:  XOHi720 

1ADJ=*,F10.2,*  ANO  ZAOJ=* ,F10.2)  010740 

214(1  FORMAT(/  4X, •AVERAGE  TIME  INC<1£»£NT  BETWEEN  POI  NTS  !•  ,  F  i  (  ,  5  )  0  1  0769 

2150  FORMAT (/4X, •HUMBER  OF  FRAMES  REAOl  *,14, •  FRAMES*)  010780 

2155  F0«MAT(/4X, ‘REVERSE  POLARITY  OF  X-AXIS  DATA  (MULT,  px  -i.OJi  •,A3)010e9P 

2150  FORMAT (/4X, •print  LISTING  OF  INPUT  DATA  IN  COUNTS)  •,A3)  010»2C 

2170  F0RMAT(/4X, ‘PARAMETERS  RELATIVE  TO  SLED  DISPLACEMENTS)  PRINT?  ‘,010840 

1A3,4X,‘pl0T?  ‘,A3)  013»60 


2130  FORMAT ( /4X, ‘ANGULAR  VELOCITY  ANO  ACCELERATION  DATA)  PRIN'?  ‘,010830 


4 


velocity  AnO  ACCELEftATias  CATAI 


1A3, 1.x, ‘Plot?  ‘.aj) 

2HD  EORHAT  1/i.X, ’linear 
1A3, 1.x, ’PLOT’  ’.ATI 

22J0  EORMAT(>/  31X,Aq,*  nOTION  RELATIVE  TO  THE  ’.Al 
2210  EORt1AT</iax,I2,»»  •,AR,’  MOTION  RELATIVE  TO  THt  ’.ARI 
2430  FORMAT)/  <»X, ’ERROR  IN  FRAME  NUMBERS,’  FRAME  NUMBf  t  ON  CARE 
1  ’  frame  number  on  CARC  2  =’,Ii.) 

2410  FORMAT)/  4X, ’FRAME  NUMBER  IS  NOT  InCREASInO:  Cmt,.  F!?ant.  ( 

1  CARC  1,  FRAME=  ’,15) 

2530  format ) 1H1,3X , ’OATEl  ’ . A } 0 .2 0  * , ’TEST  NUMB£»i  *,15/ 

1/  4X,8A10,5X, 12.’  POINT  QUADRATIC  FIT’i 
2510  FORMAT)/  32X,’0ISPLACEMENT’,l5X, ’VELOCITY  • , 2 1 F x , ’ ACCE . £  PA T I  ON’ ) / 0 11 1 2 G 
A  4X, ’FRAME’,  011140 

1  4X,’TIMe’,8X,’X’,10X,’Z  ’ ,2 (5X, ’RESUl T CNT’ ; , 2 ) 8 X , ’RE S UL T ANF’ ) / 0 11160 


010900 
’,010920 
010940 
010960 
010980 
1  =’,14,011000 
011020 
JUNT  FORJ1104C 
011060 
011080 
011100 


■  ,  7 ' ,’ IF  T/SEC) ’, 7  X, > 


011180 
IFT/SEC  011200 


6  4X,’  NO.  ’, 

2  4X  ,’ ISEC)’,2(SX,’«FEET)’) ,6X,’ IFEET) 

ISQ(’,10X,’(G) ’)  011220 

2520  FORMAT)//  29X .’SHOULDER  -  HI P’ , 2 H , ’HE  A  0  f:  1  -  mEAC  pT  2’/  011240 

1  ’  FRAME  TIME’,  2(  7x,»THt  a’,  8  X ,  ’  m’ ,  10  x  ,  ’ ACC’ ,  4X  )  /  311260 

2  ’  NO.  <SEC)’,  2(4X,’(k-UIANSl  IRAO/SEC)  IRAO/SEC  SOI  ’ll  011250 

25n0  format  (//4X, ’THE  FOLLONIN).  IS  A  LISTING  OF  THE  INPUT  DATA  IN  COUNTOnSO" 

IS  AFTER  TRANSLATION  AND  ROTATION  OF  ON-BOARD  CAMERA  OATAi’)  011320 

2550  format ( //4X, •  he  FOLLONING  IS  A  LISTING  OF  ThE  INPUT  DATA  IN  CCUNT01134C 


ISt’) 

2551  FORMAT (//NX, ’THE  FOLLONING  IS  *  LISTING  OF  Tn  anguL Af 
IME  HEAD  AND  SHOULDER  I’ » 

2552  F0RMAT(//4X,’TME  FOLLONING  IS 
11)  IN  COUNTSI’) 

2555  F0RMAT(//4X,’THE  FOLLONING  IS 
ICEMENT  IN  FEET  I*) 

2560  FORMAT)//  •  FRAME  816X,A1D>/  2X,’NO.’,  Biex.’X’.^, 

2565  FORMAT)//  •  FRAME  TIME  ’,6)  TX.AIO)/ 

1  •  NO.  )SEC)*,  6)  7X,’X*,6X,’Z  ’)) 

2570  FORMAT )//4X, ’LINEAR  DISPLACEMENT,  VELOCITY  AND  ACCELERA 
lILL  BE  COMPUTED  FOR  THE  FOLLONlNGI’) 

2530  FORMAT)1X,I4,2X,8CF9.0,F7.0) ) 

25  85  F0RMAT<1X,I4,F11.5,6  <F10.3,F7.3) ) 

2590  F0RMAT)1X,I4,F11,5,2)F10.3,F11,3,F13.3,6X) ) 


01176C 
TIOn  of  T3113S0 
011400 

listing  of  0) 1 ) -or ll I -D ) 1-1) »0R I I-O 114?C 

011440 

^ISTING  of  parameter  ■  SLED  C ’  'PL  A  0 1 1 46 C 

01148’' 

"’ll  01150 
011520 
G1154D 
JN  DATA  *011560 
011590 
011600 
01162C 
0 11640 


2595  FORMAT  )//4X, ’THE  ABOVE  DATA  NAS  PLOTTED  )X  VERSUS  Z)  F)5R  FRAME  NUM011660 


IBEP’  ,14,’ 
2600  FORMaT)4X 

TO  frame  number*  ,14) 
,14,  F11.5,F10.3,F11.3, 

F12.  3,F15.  3,F16,3,F17. 

011680 

011700 

2700  FORMAT)/ 
I,  F8.5) 

4X, ’MAXIMUM 

POSITIVE  X 

DySPLACEM£NT=’,F8.3, 

• 

AT 

TIME 

•011720 

0117lC 

2710  FORMAT)/ 
1,  F8.5) 

4X, ’MAXIMUM 

NEGATIVE  X 

OISPUACEMEMTr’,F8.3, 

• 

AT 

TIME 

’011760 

011780 

2720  FORMAT)/ 
1,  F8.5) 

4X, ’MAXIMUM 

POSITIVE  Z 

DISPLACE MENT=’ ,F8. 3, 

• 

AT 

TI«£ 

•011900 

011820 

2730  FORMAT)/ 
1,  F8.5) 

4X,  ’MAXIMUM 

NECATIVC  Z 

0ISPLACENENT»’,Fe.3, 

• 

AT 

TI  HE 

•011840 

"11860 

2740  FORMAT)/ 
1,  F8.5) 

4X , ’MAXIMUM 

RESULTANT 

DISPLACEMENTS’, F8. 3, 

• 

AT 

time 

•011880 

011900 

28J0  FORMAT )///4X,  ’OMIT  COMPUTATIONS  FOR  SET*. 13/  4X,’ThE  PROGRAM  1S31192: 
1  NOT  DESIGNED  TO  COMPUTE  RANGE  DISPLACEMENT,  VELOCITY  AND  ACCE L £  RAO n 9 4 n 
2TION,*/  4X,’0ATA  PARAMETER  CODE  IS  LESS  THAN  OR  EQUAl  TC  I’l  011960 

2810  format )///4X,  ’OMIT  COMPUTATIONS  FOR  SET’, 13/  01196G 
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1  i*x, •REFERENCE  PARAHETER  CODE  IS  LESS  THAN  1*)  OIZOCO 

2820  FORMAK/  4X, •calibration  FACTOR  IS  D.D  THUS  COMPUTATIONS  MILL  BE  00120 2C 
IMITTED  FOR  THE  FOLLOMING  PARAMETERI  •,A10)  0120-0 

2830  format  (//IX, 131*(1H^) //GX,  •OMIT  THE  REMAINDER  OF  THE  COMPUTATIONSOl20‘bO 

1  FOR  THIS  TEST  BECAUSE  OF  INPUT  CARD  PROBLEMS. •/  012C80 

2  AX.^SEE  ERROR  STATEMENTS  AT  THE  BEGINNING  OF  THE  OUTPUT  FOR  THIS  012100 

3TEST^//  1X,13<.  (IH^)  1  012120 

28hC  format  (/4X, •NUMBER  OF  FRAMES  IS  >•,!!.,•;  OMIT  DATA  FOR  FRAME  NUMB0121*.D 
1ERM,I4)  '0l21b0 

2900  format  (•!  ENO  OF  JQB^)  0121^.0 

2920  FORMATt/4X (•MEAN  AND  STANDARD  DEVIATION  OF  UNSMOOTMED-SMOOTHED  DIS012200 
IPLACEMENT  OAT  A  !•/ 4  X,  •MEAN  AND  S.  D.  OF  X  =  ^  ,  1P2E1E.  5/4X  ,  •  HE  AN  AND  S.012:’'’0 
20.  OF  2**,  2E15.5)  012240 

end  012260 
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I 


SUBROUTINE  CPLT ( T , Y, Z, IP) 

OIM^NSION  X(3u2J ,T(l>,Y<i) ,Z(1) 

COMMON  JQ,JR,  N,NP,Il,I2,XX(302t6)  ,ZZ(3D2,6)  ,ICftL(8) 
COMMON  /CPlTC/  HE AOt t « » . D ATE , TE ST , T ITLE ( 8 ) , IRX , DYLP 

IP=1  -  COMPOSITE  PLOT  OF  PARAMETER  VERSUS  SLED  DATA 

IP:?  plot  OF  ANGULAR  VEl  AnD  ACCEl 

IP=3  -  plot  OF  VEl  ANO  ACCEL 

SXM&X  IS  the  maximum  length  of  The  time  scale  in  inches. 
SXHAX=17. a 
SXMA  X  =  32. 0 
ST  =  10. 0 
0X=L.a2 

N1=N*1 

N2=N*2 

IF  (IP-21  300  .5,5 

5  DO  ICi  J  =  1,N 
10  X  (  J)  IT  (  J) 

X(Nl)=FLOAT(IF;x(<(it*l0C.011)*0.01 

X(N2)iOX 

5X=  FL3AT(IFI)1((Xini-X|N1)  )/CX)*1i 
IF  (SX  .GT.  SXMAXI  SXi  SXMAX 

call  AXIS<e.O,G.O,12HriMf  in  sec. ,-12.SX,0.C,x (ND ,0X) 
IF  (IP  .EQ.  21  ^0  Tc  nOO 
AMX»-1.  CEIC 
amn»  i.ceifl 

DO  15  J=l,N 
AHX> AHA  XI ( AMX  ,  T( jl  I 
AMXiAmAXI (AMX , Z( Jl 1 
ANNS  AMINl ( AMN , r ( J I  ) 

AHN>  AMINI ( AHN ,  Z ( Jl  I 
15  CONTINUE 

IF  (AMN)  30.20,20 
20  AMN«0.0 
GO  TO  MC 

30  AMN*FlOAT(IFIX(4mn/2.5i-1)*2.5 
NO  AMX=FL0AT(IFIX(4«IX/2,51*1I  *2.5 
IF  (OTLPl  <.3, *.3, 1.2 
42  OTiDYLP 
GO  TC  gc 

•»3  OYYi  (AMX-AMNl  /S» 

IF  (DYY-2.51  4n,44,45 
44  DYi2,5 
YMINIAMN 
GO  TC  ItO 

»5  IF  (CYT-5,0)  •»6,4fc,..8 
■»fa  OYI5.0 
CO  TC  90 

48  IF  (Orr-lO.O)  50,50,80 
5i  OYilC.O 
GO  TO  9C 

60  IF  (OYr-20.0)  70,70,90 

70  OYiZG.O 
GO  TC  90 
30  OYiJO.O 

90  YM IN:FL0AT  ( IF  I  X ( AMN/DY 1  I  *0 Y 


0  122  80 
312300 
012320 
012340 
012360 
012380 
012400 
012420 
012440 
012460 
012480 
012500 
012520 
012540 
012560 
012580 
012600 
012620 
012640 
012660 
012680 
012700 
012720 
012740 
012760 
012780 
012800 
012820 
012840 
012860 
012680 
012900 
012920 
012940 
012960 
012980 
013000 
013020 
013340 
013060 
013080 
013100 
013120 
U13140 
013160 
0131 ?C 
0l32uC 
013220 
013240 
013260 
013280 
013300 
013320 
013340 
013360 


IF  (Y“IN  ,GT.  ihN)  VMINiVlIN-QY 

J1  T3'0 

IF  (THIN  ,GT,  IMN)  rHlN  =  T*1IN-;Y 

J1 T’ 3? 

1  JQ 

Ymix=SY*QY»VHIM 

I  1  '  -  2  C 

IF  (AHX  .LE.  YHAX)  so  to  IQZ 

3 1 2L : : 

YHIN=Y1lN»OY 

313425 

YmAXiYIAXjQY 

11 2422 

1  J2 

Y  (  Nl)  -Y^IIN 

3  1  24-0 

2 ( N1 ) =YHIN 

J  1  3  L  6  ) 

Y(N3) =0Y 

3  1  2-  1 C 

2  ( N2 )  =c;y 

313533 

call  ax  13(0.0  ,  J.  a  ,  26HVEL  IM  FT/StC - ACC  IN  f. ,  25  , T  ,  J . 

,  ^  ^ :  ‘j . 

.  CY:  3  1  .!5  2  3 

IF  (YHiNt  105,110.110 

0135-0 

105 

YO  =A6S ( YNINCar) 

013553 

call  plot  (  0.3  ,  YQ  ,3) 

3 13580 

call  OLOT(SX,  ro,2) 

013603 

110 

00  120  1=1, N 

313623 

IF  (Y(I)  .or.  YMAXt  Y(I)=YNAX 

■’136-0 

IF  (2(1)  .GT,  YMAX)  2(I1=Y1AX 

3  1  5o  5  C 

IF  (Y(I)  .LF.  YMIN)  Y(r)rrNIN 

3  1  56“') 

IF  (2(1)  .LT.  YMIN)  2(I)=TNIN 

3  1  •  ’  j  0 

120 

COnT INUE 

3132=3 

1 50 

CALL  LINE CX, Y ,N, 1 ,1C ,1) 

313240 

call  line ( X,2 ,N, 1 , IQ  ,3 ) 

013260 

hIimEAOH  JO) 

3  132  ?u 

call  3)(P90L  (0. 25, 9.5,0.105  ,»1  ,P.0  ,  A) 

313800 

call  SYHaOL (0 . 25, 9.3 ,0.  105  ,6hR£l  Tj, 0.3,6) 

313823 

HlslEAOL ( JP) 

313840 

call  SYH9OL(0.25,9.1,0.iQ5,Ht,r.0,9) 

313850 

JAl 

OlOfAJ 

call  SYM80L(0.5,  8.8,0.105,0,0.0,-1) 

313930 

call  SYfi8OL(0.65,8.7  5,  0.105,  3HVEL  ,0.0, 3) 

313923 

J=  3 

313940 

call  SYM80L(0.5,  8.55,0.105,0,0.0,-1) 

01  3'A60 

call  SYM90L (0.65,8.53, 3.105, IHUCC.O. 3 , 3) 

3  1  3080 

i<>a 

call  SYM30L (0. 25, 9. 8, 0. 105, LM TEST, 0.0,-) 

314030 

call  SYP30L ( J . 25, 9.8 ,0.105 ,rEST ,0.3 ,5) 

314020 

CALL  NUf19£R(l.  25,9.8,0.1&5,FL3AT(NP),0.  i,-l) 

3140-3 

call  SYP90L  (2. 05, 9.  8,0.105  ,9mP0INT  fit.J.O.a) 

31-060 

GO  TO  999 

0 1-0  r  0 

31-130 

»l.OT  the  OOfIPOSITE  niaT  OF  PftPAMETEPS  VERSUS  SLE3. 

31-120 

^OTEl  QROINATE  ANO  ARSCISSA  SCALInO  IS  ‘"IXtO. 

3  1-140 

31-160 

3  JO 

2NiN=a. 0 

3141-0 

<MIN=-l.l,-2.Z*FLaAT(IRX) 

314230 

*MIN=-1.3 

3  1  -2  2  0 

02*0. L 

3  1  42  4  0 

DX»0. , 

3  1  50 

sx=ic.a 

3 1-2 1 0 

CALL  AX  IS  (0.  0  ,  3.  0  ,  ILHX  3ISP  IS  ^EET  ,-14,SX,a.  3  ,  tfllN,  JXI 

3  1  -  2  J  3 

call  a  XIS  (0.  3  ,  3.  0  ,  1Lm2  GISP  IN  ‘‘"E'.  I  L  ,  S  Y  , -tO  .  3  ,  2  -  I  s  ,  2  2 

3 1-3  ’3 

call  SYN30L(0.25,9.5  ,0.105,16HOATa  f)  CL  £  i ,  0  .  .  1  h  ' 

3  1  -  )  -  ? 

X ( SI ) =<NIN 

0  ;  4  2  ■  3 

'  (  S2 ) =C  X 

3  1.’  1 

2 ( SI ) -2MIN 

3 14- 3  : 

I 


Z(M2) 5J2 

0 14A20 

•|(hSX35x»OX»XMIN 

0 InLhO 

ZMAX=ST»DZi-Z  IlN 

2 ILLbl 

■'0  =  10.0 

014030 

on  310  J=l,6 

014600 

IF  IICAL(J*2))  310,310,305 

014520 

315 

HI ^HEADL ( J»2) 

014540 

ro  =xn-o. 25 

014560 

call  STHaOL  (-1,7S,YO*0.05, 0.  105,  J  ,0.0,-l) 

014580 

CALL  5YM3OL<-1.6a,r0,0.t05,Hl,Q.0,9) 

01460C 

31D 

CONTINUE 

014620 

DO  325  J=l,6 

014640 

IF  (ICAL(J+2I)  325,326,315 

3 14660 

3  1  5 

ir  =  o 

014680 

DO  320  1=11,12 

014700 

TI=TI*1 

014720 

X'  n  )  =  x;’  ( r ,  ji 

0 14740 

M  III  =2:  tl,  J) 

0 14760 

IF  VXCII)  ,G7.  XNAx)  X(IT)=XNAX 

014780 

IF  .IT,  '(Him  X(II>=XHN 

014800 

IF  iZdII  ,GT.  ZMAX)  Z(IIl=ZNAX 

014820 

IF  ;2(II»  .LT.  2HIN)  Z(II)=ZNIN 

0 14840 

320 

CONI INUE 

014860 

CALL  LINE ( X,Z , N, 1,-1, J) 

014880 

J25 

CONTINUE 

014900 

GO  ro  ILO 

014920 

014940 

SETUP  AMO  PLOT  ANGULAR  YEL  ANO  ACCEL. 

014960 

014980 

Llfl 

CALL  SCAL£(Y, SY,N,1) 

015000 

CALL  SCAlE(7,SY,N,1) 

015020 

YNiNsT  (Nl) 

015040 

2«tN=Z( Nl) 

015060 

CY*  Y(N2) 

015080 

nz=  Z(N2) 

015100 

WPITEl6,200n»  YMIN,OY, ZMIN.OZ 

015120 

call  AXIS(U.fl,0.0,22MANGULAR  YEL  —  RAOFSEC, 

22,SY,90. ,rNIN,DY) 015140 

call  AXIS(SX,0.0,26HANGULAR  ACC  —  RAO/SEC/SEC, 

-26,SY,90. ,2HIN,DZ) 015160 

GO  TO  130 

015180 

call  PLCr(SX*3. 0,0. 0,-3) 

015200 

RETIJON  015220 

2(>^g  PORMflT  {//l.X,*rHE  480»E  \»EU  AND  ACCEL  OATA  ARE  PLOTTED!  »HIN=*,  3152'*u 

IFin.Z,*  3Y  =  »,F8.2  >5Y,*  ZM  IN=* ,  FI  0. 2 ,  •  DZ»»,F8.2)  015260 

END  0i52?0 


I 


SUBROUTINE  SN  (  X  ,  Y  ,  YC  ,N  ,  NP)  0153)0 

C  NP  must  be  an  000  INTEGER  .GE.  3.  Ol53?a 

0  compute  The  coefficients  for  a  quadratic  LEAST  SQUARES  FIT  OF  ‘NP*  01534C 
C  POINTS  ANO  compute  THE  FIT  OF  T hE  OATA  (NO  OERIYATIVES)  'YCd)*.  015360 

dimension  C  (3  )  ,)( (1)  ,  Y(1)  ,  YC(1)  0153»0 

M=(NP-l)/2  OlBLJO 

NN  =  N-M  Q15‘.£0 

N1=NN*1  015540 

OO  10  1=1, M  015460 

10  YC(I)=0.0  015460 

00  20  I=N1,N  015500 

20  TO  (I)  =  0.0  315520 

MH=M*1  015540 

00  100  I=MM,NN  015560 

N1=I-H  015560 

N2=I+M  015630 

call  QLSQ<X,Y,N1,N2,C1  015620 

YC  !  I)  =C  (1)  *X  (I)'  X(I)  yC  (2»  *  X<  1)  yCI  3)  0156  4  0 

C  YP(I)=2.0»C'l' •X(I)«-C(23  0  1566P 

C  YPP(I)=2,0''3tll  015660 

110  CONTINUE  015700 

RETURN  015720 

ENO  015740 
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:U3RCUTI‘*£  0E;?IV1  I  X,  T,  rp, ‘J.HO,  ID)  315760 

>)P  -U5T  3E  AN  COQ  INTEGEP  .  6£ .  3.  015730 

13=1  PQR  PIRST  DEPIl/flTI  7E.  3l5J00 

10  =  2  £0R,  SECOND  OEPIVATIVE.  315S20 

compute  the  CCEFpICIENTS  for  4  JUfiOR^rr'C  least  STuARES  fit  of  'VP'  315A»0 
JOINTS  AND  COMPUTE  THE  FIRST  DERIVATIVE  *TP(I)>,  315863 

DIMENSION  :  (  3  )  ,  <  ( 1)  ,  r(  1)  ,  y  =  (  1)  315830 

“*=(NF-i)/?  015500 

t=m»m»i.  315523 

NN=N-<  0l5qN0 

n1-NN*i  015560 

CO  10  1=1, <  015580 

10  TP(i)--a.o  fliboOO 

CO  2  0  I  =N1 ,  N  3  20 

3QYP(I)=0.a  01b0-*0 

'^■’^F  +  l  316050 

3O100I=mm,nn  016080 

51  =  1-''  016130 

52=1'-  316120 

CAlL  CLSQ(X,t,n1,n2,C)  Olol^’' 

TP(I) =2. J*C(1)  'XT  I) *0 2)  316160 

YC  ( I  )  =C  <  1)  ‘X  I  1 1  'X  (  I)  »C  (2)  •  X<  I)  *0  (3)  0  161*  3 

''PP(r)=2.Q*F(ll  3162  00 

100  continue  316220 

return  ai62u0 


016260 


sjqwouTiNE  aL s X,  T ,  SI  ,N2,  C) 

Jlr*e>xsiON  xci)  ,Y  ( 11  ,  am 

c  This  subroutine  computes  tme  iuadratic  ^east  square  Cat- - ;  - ! est s 

C  •c<3)'  FOR  NP  OATA  POINTS  ISP  MUST  9E  AN  000  INTEGER  3). 

c  The  jATA  need  not  be  eouallt  spaces. 

C  C  ( 1)  •  (  X**2I  *0  (  2)  •  <*C  (3)  XV 

c  cm’x*c(2)xT 

C  SUBSTITUTE  XP=X-AF,  WHERE  FF  IS  X ( < N1 .N2 I / 2 ) 
c  Then  c  < 3)  xC  (  3)  *0  t  d ‘FF •ff-c  ( 2» ‘Ff 
C  C(2) xC (21-2 . 3»C ( II VFF 

C  C(  1)  xC  ( 11 

c 

F(A1,A2, A3, 31,32,33, Cl, C2,C31 xAl*  <3  2*03-3  3 *C2)  ♦ A2*  <  3 3 *0 1 -  - 1  "I  ’  I 
1*( 31*C2-32*Cl ) 
fnxFCJAT(N2-N1*11 
NNx(Nl.N2) /2 
FF  =  »  <  NN) 


j 1  a  a  'I 
j  1  b  ^  T  a 
.  lb.".  , 
i-.faSw: 

j  1  b  H  , 

lib-'  1 

T  1  D  -  J  1 
J 1  b  - : 
1  ISM-  - 
Q ISmSO 

3 1 B  -  a 

.  1  b  E  J  1 
aibSac 

!  0  1  b  i  -  u 

ais'^bi 
iibE  - : 
I  1  b  O  U 
J  ISE.T 


3i=a 

1  Ibt-., 

Z2=0 

aibF‘ : 

33=0 

aibb  'T 

ZSxQ 

a  1  b  7  J  a 

35=0 

JIST’D 

36  =  0 

a  163 

37  xij 

T16760 

GO  20  r=Nl,N2 

J 167  ia 

X2xX (I) -FF 

0163107 

xixX2**2 

OlbETO 

31x31**2 

J  1 6  *  M  n 

32x32**1 

aibesc 

33x33**1**2 

aibS  10 

2*.x3‘»**l‘Xl 

316900 

35  x35*v  (  n 

0 1 6 :  a 

36=36*<2*r(I) 

0 IbMMO 

37x37**l*r(Il 

3 loRfe  a 

I 


"■U^RC  ITINE  KOTA  re  (N,  Jl  ,  lOR)  J171bu 

CCMMuN  JG,jR,  NN,  NP,NC1,  NC2  ,  ;»x  (30^: .  b)  ,  22  <  31)2 , 6)  ,  ICALld),  0171''0 

1  IFH < 302 ) ,X (302,i) , 2  1302 ,8)  ,I0< 12 ) i:R ( 12)  ,aCC I  30  2)  ,  0  172  0  0 

21C23(3C2J,  C4L  (  81  ,  XO  (302)  ,  Z0<302)  J  17220 

THIS  SjERQljTIl.t  TRANSLATES,  ROTATES,  ANO  CALIBRATES  T  h£  On-BOARO  0  172  40 

CAhEP»  CATA  STOREO  IN  THE  •)'  AND  *2'  ARRAYS.  ALL  DATA  ARE  0l72o0 

translated  to  a  coordinate  system  through  The  SlEO  range  RlEERENCE  0)72j0 

AOlNf  (FIRST  X,2  PAIR  FDR  EACH  TIME).  ni73j0 

AXIS  iS  THEN  rotated  SO  THE  ANGLE  3tTREEN  THE  SlED  RANGE  REFERENCE  017220 
ANC  The  sled  reference  (SECOND  X,2  PAIR  FOR  EACH  TlrE)  IS  THE  SAME  317340 
POR  ALL  TIME  STAT70NS  (SAME  AS  AT  ilME  ui.  017360 

pIRaT  PCINl  IS  range  REFERENCE  ON  THE  SLED.  017380 

second  PoInT  is  The  SLED  REFERENCE  POINT.  017400 

012=6.283185308  317423 

1=1  017440 

XR  =  <(I,1)  0l74ba 

2R=2(I,  1)  017480 

;F  ;IPR)  lO.lOilS  017500 

lU  4RiTE(6,2580)  IF  R  <  I )  ,  (  X  ( I  ,  J)  ,  2  ( I ,  J)  ,  J=  1 , 8  )  012523 

SUeVRACT  initial  range  YALUE  from  SLEO  REFERENCE  AND  GE (ERMINE  TiE  0175-0 

REFERENCE  ANGLE.  017560 

15  XlAX  (I,  2)-xR  017580 

21=2(1, 2)-2R  017600 

X (  1 , 2) =x ( 1 ,2)  ‘CAL (  2)  01762  0 

2(;,2)=2(I,2'  *'.',AL  (2)  017640 

DC  20  J  =  R1,S  0176-.0 

Y(  I,  J)  =X(  I ,  J)  ’CAL  (  J)  017580 

2  0  2  (  I,  J)  =2  (I .  Jt 'CAL  (  J(  017700 

'Ti'P'  is  the  reference  angle  aEIHEcN  THE  1H.0  REFERENCE  POINTS  ON  T-E  017720 
yLEO  for  THE  FIRST  TIME  STATION  (RANGE  AND  SLED  REFERENCE  POINTS) I  8i77h0 
all  data  for  1=2  TO  N  ARE  ROTATED  TO  MAKE  THE  ANGLE  9ETREEN  THE  T MO  017750 
POINTS  The  SAME.  0l77o0 

35  rHR=ATAN2{21, XL)  0l7S00 

IF  (ThR  .LT,  0.0)  THR=rHR40I2  017820 

CO  50  1=2, N  017840 

Hl=X(l,li  017860 

h2=2(I,  1)  017880 

TRANSIATE  SLEO  REFERENCE  DATA  TO  COOROINATE  SYSTEM  THROUGH  SLED  RAnGc017S00 
reference  ANO  determine  the  angle  BETWEEN  SLEO  RANGE  RErERLNCE  AnO  017920 
The  SlEC  reference  points  (FOR  I-TH  time  station).  017940 


xl  =  x  (I,2)-h1 
21=2(1, 2)-M2 
ThI=ATAN2<21, XI) 

IF  (ThI  .1,7.  3.0)  Thi.)HI.PI2 

all  data  are  rotated  8y  angle  th«thi-thr, 

THmTHI-THR 
OS  iCOSCTMI 
SN=S IN ( THI 

ROTATp  sled  reference  tno  translate  sack  t. 

‘3  (21  =xl*CS*Zl»SN*XP 
2D(2)=-X1*SN*21*CS*-R 
<(I,2)  =  X0(2/»i;Au12) 

2  (  1 ,  2)  =  20  (  2)  ‘CAL  (2) 

CO  -u  J=)l,8 

TRAnSlATc  2Y  1  JnO  H2  ANO  rotate  3Y  ANG^E 


:  itial 


'Th' 


••hCN 


017960 
017930 
318000 
018020 
0  180  40 
018060 
018080 
01310C 

;jcroihate  ststE“0isi2: 

oiai-o 

0 laibO 
013180 
018230 
0  1S220 

IRANSLATE  sac.  01824C 


ro  INITIAL  aooRaiNATE  SYSTEM. 

Xl  =  x  .1  : 

=  Z  ll , J)-H2 

XC(J)=Xl»CS«<;i*SN»XR 
2D  <  J)  --*i.»St-.*25*':s  +  ZR 
V ' : ,  j)  =  xD  (.j) » : al  ( j) 

■♦0  '  (  I,  J)  =Z  J(  J»  ‘CAl  (  J) 

X  I  I ,  1)  -XR 

z  ( 1 , 1)  -ar 

IE  (IRR)  ^5, •♦5,50 

-*5  W6  ITE  (6 , 25aCl  IE  R  <  I )  ,  X  1 1 , 1 )  ,  Z  ( I 
50  continue 

2510  FQRr1Ar(lX,:<,,2X,3'.  F9.0.E/,i/) 

RE  TURN 


I  I  1::  Ml  i  s  - 


-  \  -  j  ,  J 


i  “  I.  ♦  4  ;  ■  > 

irfZ  =  S*^.!/f^LoAr  f'l* 

:o  ica  :=i.N 

C-*rSNX*{X(I'-aVX)**2 

■^:  =  s:rt (SM:/tL  .Ar  ^n-i ' ) 
nm  ^  r  F.  (  6  .  J  U  Q  0  >  A  w  I  .  'i  “  '  .  A  V  c’  .  ’ 

rooo  '»£. isr  '_rAN:;A'r'f)  cfeviAT^.s  a  -  ..t 

1  E=?£  SOl  HATA  :*■*  -  ci  I  •  X  •♦x  »  •-(:  An  An" 

;  •-<tAN  an:'  '‘-  J=*.2LlP*-?) 

■;  F  T  'J  w  N 
£S‘-: 


3  I  d  5  6  5 
1  1 3  F  -,  3 
3 1  -  e  1 : 
: :  3  F :  3 

j  1  5  D  ■*  C 

Ol^b-.C 
3  1  3  fc  3  : 
:i;7 jt 
31c;:: 
3137-: 
Q1‘S7‘'0 
313733 
013830 
313820 
313^-3 
;  :  3  1  3  3  b  j 
013350 
313900 
313920 
3139‘*0 


SUBROUTINE  MEAN2 ( N1 ,N2 , 01 ,DC, XC ,Z9, SM<,SNX2,SMZ, SMZ2)  318960 

OIHENSIQN  01(1) ,0C(1)  ,  XQ<1),  Z0(1)  015900 

COMPUTE  AVERAGE  ANO  S.O.  OF  UNSMOOTHEO  (liNUS  SMOOTHED  OATa  i  0  190  00 

FNN=FL0AT(N2-N1*1J  J19020 

SMx=SMx2»SM2*SMZ2=a. a  oiboho 

DO  100  I=N1,N2  019060 

OIFX=OI (I)-XO(I)  019080 

QIFZ=OC (Il-ZD(I)  019130 

SMX=SMX+OIFX  019120 

SMZ=SMZ*OIF2  OIBImO 

SMX2*SMX2»0IFX»»2  019160 

130  SM22=SMZ2*OIFZ»*2  319100 

SMX=SMX/FNN  019230 

SMZ=SM2/FNN  019223 

SMX2=S(JRT  (  (SHX2-SMX»SMX»FNN)  /  (FNN-1.0)  )  019240 

SMZ2=SQRr< (SMZ2-SMZ»SMZ»FNN» /(FNN-1.0) )  319260 

RETURN  319230 

end  319303 


APPENDIX  B 
PKOGFA;-!  WBRL 


P»  J'.fi  AM  (  I  ’<PUI  ,r  IITPUT  ,  rAPE^:  =  lNP'jr  ,  T  AH£(>=OU  T  -  U  r  ,  [  Ap£  7  ) 

<il50,9l,T(l5a,9),;(l50,9l,)(x(i5a,9),rY(iSC,91,ZZtlS(),9) 
l.nrtfO), 7(150),  /PESI150), ARES  (1 50  >,<A(15[)),yA(150), 

Z  ZA( 150) ,Emn<12) ,FMX(12) 

OIMENSICN  0ArA(lQ2i.)  ,FMNC(  3,?),FHXC<3,2),IS(9)  ,IEi9) 

34 'A  £NC/5m99  9  99/ ,NP/ll/,CCN/1.0£10/,ECT/a.Z/,ECTC/C.  05/, INC/ 9/ 
1,  TCUN/l. OE-aS/, NMAx/150/ 
call  PLCrS(0ATA,l(J2i.,7) 
call  plot <0. 0  ,-a.  5,- 3) 

CA,.L  PLcr«a.o  ,a.7,-3) 
call  FACTOR(FCT) 

CALL  04TE(T004r) 
call  TIME(CLQC<) 

NS  =  <  RP-1)  tZ 

10  REAO(S,100u)  TEST, TCOMP.OT 
IF  (EOF(5»)  999,23 
20  REAa(5,llQ0)  title 

IF  (OT  .lT.  TCON)  07*0.002 
NST  =  0 

00  25  I=1,NMAX 
T(  I)  =FLC4r(I-l)  •OT 

IF  ( A8S  (TCCMP-T<  I)  I  .lT,  TCON)  NST*! 

25  CONTINUE 

IF  (NST  .LT.  1)  RRITE(6,3300) 

I£RR*a 
00  so  <=l,5 
J2=2*K 
J1  =  J2-1 

IF  (K  .E3.  5)  J2*J1 
1  =  1 

R£AO(5,120II)  rOM,(X(I,J),Y(I,J),Z(I,J),J»Jl,J2) 

CO  30  I=1,NN4X 

IF  (  4BS<T(I)-T0N)  .LT.  ICON)  GC  TO  35 
30  continue 

I3<=  <  J1  H)  /2 

IF  (lERR  .£Q.  n)  RRI TE (fa, 3350 ) 

RRITE(6,3(!10)  test, IOK, ton 
IERR=1 
GO  TO  60 
55  I3lJl)=I 
IS  ( J2)  =I 

IF  (I  .£3.  1)  GO  TO  50 
DO  GO  J=J1,J2 
X(  I,  J)  *X(1,  J) 

Y  ( I,  j) =r (1, j| 

GO  2(1,  J)  =  Z(1,J) 

50  I«I»1 

IF  (I  .GT.  NN»X>  GO  TO  55 

RE40(5,1200)  T0M,(X<I,J),T(I,J),Z(I,J),J.J1,J2) 

IF  (TOM  .GT.  990.0)  GO  TO  TO 

IF  (  A8S  (  TDM-T  (  I)  )  .lT.  TCON)  GC  TO  5a 

IF  (TERR  .EQ.  3)  HRI  IE  (fa ,  3  050  ) 

I£RR=IERR»1 
ID<= ( Jl*l) /2 

WRITE (fa, 3000)  TEST,I3K,T(I),T0P 


0  0  31.1' 
ii  0  J  1  2  0 

0  0  0 :  r 

000150 

000133 

orozoo 
303223 
0  0  0  2  w  0 
J  002  SO 
0  0  02  3  0 
000303 
000223 
0  0  D  3  G  2 
000760 
0  3  0  9  3'' 
0  u  u  w  .  3 
3  0  0w23 
J  .  0  w  3 
0  3  0  w  ,15  „ 
0  3  04  -1, 
0  005  JO 
■J  0  0  5  2  3 
0005-0 
000560 
0  005  -,0 
DOOEOQ 
300620 
0006.0 
0C0b60 
OOOoSO 
000733 
000720 

0  a  0  7 .  n 

000732 
0  2  3  7  ' 
0.030: 
033622 
0  0  0  6-.: 
OuU-ifaL 
030631 
0  0  J  31  3  3 
000920 
3009.3 
030969 
303960 
0010  30 
OOID’O 
0010. 0 
3  0106  2 
3C1C  ■<  3 
331130 
0  011  2  3 
0311.0 
331161 
OOH'O 


1  7 


t 


GO  TO  60 

031200 

55 

IF  (lERR  .EQ.  0)  HRITE<6,3a50) 

001223 

IQK=  ( Jl*ll  /2 

0012LJ 

WRITE  (6,3060!  NMAY.IOIC 

301260 

50 

REAO(5,13UO)  C< 

001250 

IF  (  C<  .EO.  ENO)  GO  TO  70 

001313 

GO  TO  60 

001320 

70 

IE  (J1!=I-1 

0  31340 

IE  ( JZ)-*!-! 

001360 

50 

CONTINUE 

0313  50 

IF  (lERR)  130,100,10 

00143Q 

100 

-4xT  =  mAX0  (IE(  1)  ,  IE  (3)  ,  IE(5»  ,  IE«7)  ,I£  (9)  I  -  ns 

061420 

00  200  U=l,9 

331440 

N=IE  (Jl-IS  (  J)  ♦! 

301460 

Nl=IS(o) “NS 

301440 

N2=IE( J)-NS 

001530 

N3=N1+NS 

001520 

NL=N2-NS 

oai5->o 

n5  =N3»ns 

301560 

N6=NL-NS 

001550 

00  160  I-=l,12 

001600 

FMN(  I)  ICON 

001620 

160 

FNX(I)=-C0N 

001640 

Ills  <J) 

0ul&60 

call  SM(T,X(I ,JI ,XX(I,J)  ,N,NP) 

031680 

call  SM(T,T<I,  J)  ,TT(I,  JI  ,N,NP) 

001730 

CALL  SM<T,Z(I,J) ,ZZ(I, JI ,N,NP) 

001720 

COMPUTE  VELOCITT  COMPONENTS! 

001740 

CALL  OERIYl  (T  ,  XX  (  r,J>,  X  (I,  J)  ,N,NP,1 ) 

001760 

call  OERIVKT.rt  (I,J)  ,Y<I,  J)  ,N,NP,1> 

001750 

CALL  0ERI'/l(T,Z2(r,JI,Z(I,  J)  ,N,NP,1) 

001803 

00  17Q  II=N3,N<. 

001820 

X( II , J) =X (II , J)X12.0 

001840 

Y(II,J) sTCII, J)/12,0 

001860 

170 

2(  II  ,  J)  iZdl,  J)  /12.0 

001880 

compute  4CCEI.£R«TI0N  CO-PONENTS! 

301900 

Call  oerivi(T,x(I,j) ,xa(I) ,n,np,2) 

001920 

CALL  OERIVl ( r,r(I,J),TA<I),N.NP,2) 

001940 

CALL  OERIVKT  ,Z(I,J1,ZA(I),N,NP,2) 

001960 

LINE =60 

001980 

CO  190  IiNl,N2 

302000 

IF  (LINE-50)  175,172,172 

002023 

172 

W«ITE(6,2500)  today,  CL  OCK  ,  TE  ST  ,  T  I  TL  E  ,  NP 

302040 

WRITE(6 ,2505)  J 

002060 

WRITE<6,25ia) 

002080 

LINE  =  0 

002130 

175 

FMN(1IPAMIN1(FMN(1I,XX(I,JI) 

002120 

FMN(2)=4MIN1(  FMN<  2)  ,  YY  (I  ,  J) ) 

002140 

Fmn(3)=AMIN1(F'1N(3),ZZ(I,J)) 

002160 

fmx(1)=amaxi(fmx(1),xx(I,j)) 

002180 

FMX(2t=ArtAXl(FMX(2),TY(I,J!) 

002200 

FMX(3)  =  AM4Xl(F-tX(3)  ,Z2(I,  J)) 

002220 

IF  (I  .LT.  N3  .OR.  I  .GT.  NL)  GO  TO  175 

002240 

COMPUTE  RESULTANT  LINEAR  VELOCITY! 

302263 

VRES (I ) =SQRT (X(I,J)*»2»T(I,J)»»2*7(I,J)*»2l 

002250 

FHN(5)  =  aHlNl(FMN(5),X(I,J)  ) 

FMN(6)  =««rNl(Ff1N<6l  ,  r(I,  JJ  ) 

FMN(7)=flHINl (FMNt7) , 2(1, J) ) 

FMN(8)=AMINl(FMN(a) ,VRES(I)) 

FHXC5)=AMAX1(FMX<5) ,X<I,J) ) 

FMX(6)  =  4ftAXl(FHX(6),Y(I,J)) 

FHX(7)=AMAX1(F1X(7I,Z(I,J) » 

F>1X(a)=AMAXl(FMX(a)  ,VRES(I)) 

IF  (I  .LT.  N5  .OR.  I  .GT.  N6 )  GO  TO  180 
C  COMPUTE  resultant  LINEAR  ACCELERATION! 

ARES(I) =SQfiT(XA(I) ••2+TA<I)*»2»2A(I>»*2) 

FMN<9)  =ANINl{Ff1N<9)  ,  XA  (IJ  ) 

FIN! 10) = an INI (FHN<10),TA<I)) 

FMN(ll) sAHINl (FMN(11),ZA(I)) 

FNN(12) =AMIN1 <FMN<12) , ARES (I) ) 

FMX  (9)  =  AMAX1(FMX(9)  ,  XA  (I)  ) 

FMXdO)  sAHAXI  (FMXdO)  ,  YA(I )) 

FMXdl)  =AMAX1  (FMXdl)  ,  ZA  (I  J) 

FMXd21  =AMAX1  (FMX  (12)  ,  ares  (I  )  ) 

GO  TO  185 

178  HRITE(6, 2600)  I ,  T  ( I)  ,  X  X  ( I  ,  J)  ,  YY  ( I ,  J  )  ,2Z  ( I ,  J) 

GO  TO  187 

laa  WRITE(6,260Q)  I ,  T  ( I)  ,X  X  ( I ,  J)  ,  YY  ( I ,  J)  ,  2Z  ( I  ,  J)  ,  X  ( I ,  J )  ,  Y  ( I  ,  J  ) 
1,Z(I,J) ,YRES(I) 

GO  TO  187 

135  HRITE(6,2600)  I ,  T  ( I)  ,XX  (I ,  J)  ,  YY  (I ,  J)  ,  2Z  ( I ,  J)  ,  X  ( I ,  J)  , 

1  Y(I,JI,Z(I,J)  .YRESd)  ,X4  ( I)  ,  YA(X)  ,  ZAd)  ,  ARES  (I) 

137  LINEsLINE*! 

190  continue 

HRITE(6,2700)  (FMN(I)  ,1  =  1,3)  ,  (FMN < I )  , I  =  5 , 12) 

WRITE  (6, 2750)  (FMX  (I ) ,  1  =  1 , 3)  ,  (FMX  (I )  ,  1=5,  12) 
call  PLT(  J,N1,N2,N3,N<.,N5,N6,MAXT,TEST) 

IF  (J  ,lT.  7  .OR.  J  .GT.  8)  GO  TO  200 
JJ=J-6 

FMNCd,JJI=FMN(l) 

FMXC (1,JJ)=FMX(1) 

FMNC(2, JJ)=FMN(2) 

FMXC(2, JJ)»FMX(2) 

FMNC  (3,  JJ)=FMN(3) 

FMXC  (3,  JJ)  =FMX  (3) 

230  continue 

N2=MIN0  (IE  (7)  ,  IE  (  8)  )-NS 
call  FACTOR(FCTC) 

N1=MAX0  (IS(7)  ,  IS(8)  )  ♦NS 
IF  (N1  .GT.  NST)  NST=N1 
call  PC(FMNC, FMXC, NSI,N2, INC, TEST) 
call  f4CT0R(FCT) 

GO  TO  10 

999  call  PLOTEINA) 

WRITE(6, 3280)  NA 

STOP  "END  OF  JOB" 

10)0  FORMAI(A10,2Fia.O) 

1130  FORMAKSAlfl) 

1230  FORM4r(F5.0,6F6.3/ 

1330  F0RMAT(45) 


3  32300 
302320 
30231.0 
002360 
C  0238. 
302400 
002420 
0  02440 
(I"2463 
302480 
002500 
0C2523 
302540 
002560 
002530 
302600 
002620 
002640 
002660 
002680 
032730 
002720 
002740 
002763 
0  027  33 
00293  0 
002823 
002840 
002850 
002880 
002900 
002920 
002940 
002960 
002980 
003030 
303020 
003040 
003060 
003080 
003130 
003120 
C03140 
003160 
003190 
003200 
0  0  32  2  3 
OOOZ'.O 
003263 
003280 
003300 
303320 
003340 
0u325D 
003380 
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^:510  F0R1AT  »1H1,»0ATE.|  •  ,  Ai  U  ,  12  X,  •  TIME  1  •  ,  AlO  ,  1 2X ,  ♦  TEST  NUfgd’i  *,  :r34jo 

1  AIQ//  lX,aA10,5X,I2,»  POINT  QUADRATIC  FIT»)  JaiUc’? 

2505  FOPIATI/*  DATA  FOR  VARIABLE  COCE  NUMBER  ♦ , 12)  OOIL-O 

2510  FORMAT(/»  FRAME  TIME*,  5X  ,  *  OISPL  AC  EMENT  ( INCME  S  >  *  ,  l‘»X  ,  *  V  EL  OC I  T  T  lOuTLS; 
IFEET/SEC) ♦,16X, •acceleration  (FEET/SEC  SQ) •/  OJTLrC 

2*  NO.  (SEC)  X*  ,8X,*Y*,  8X,*Z*,<.X,2  (5X  ,*X*  ,9X, ‘Y*,  3  0  35f>CI 

39X, *2*, 5X, •resultant*) )  003523 

2600  format  (  IX  ,  IL,F7.  3, 3Fq.  3,8Fia.  3)  0  035‘.a 

2700  FORMAT(»  MINIMUM  *,  3  X,  3F9 . 3,  8F10.  3)  JJI5S0 

2750  FORNAT(»  MAXIMUM  • , 3 X, 3F9, 3, 8F1 0. 3 )  0"3510 

30  00  FORMAK//*  TEST!  *  ,  A  10 , 5X ,  •!  IME  ERROR  IN  0EC<*,I3,* - T(I)=  *,  003600 

1  F7.3,*  AND  INCORRECT  TIME  *  •,F7.3//*  READ  THROUGH  REMAINING  DECK0„J620 

2S  IN  THIS  TEST  AND  PROCEED  TO  ThE  NEXT  TEST.*)  3036<.0 

3010  FORMAT)//*  TEST!  *  ,  A 10  ,  2X  ,  *T  IME  ERROR  IN  0£CK*,I3,*  —FIRST  TIME  =  3oibbO 
1*,F7.3/*  FIRST  TIME  DOESN'T  MATCH  TIME  3ATA  COMPUTED  FROM  GIVEN  OT003630 
2.*  /  *  SKIP  THIS  TEST.*)  003730 

3050  FORMAT(lHl)  303720 

3060  FORMAT)//*  INDEX  OF  INPUT  DATA  POINTS  IS  GREATER  THAN  OR  EQUAL  Tc  003743 
1*,I3,*  FOR  DECK*, 13/*  SOME  DATA  POINTS  HAY  HAVE  BEEN  LOST.*/  333762 

2*  INDEX  OF  The  first  DATA  POINT  =  l*T/OT,  WHERE  T  IS  ThE  TIME  JF  toi)j730 
3HE  FIRST  DATA  POINT.*)  133603 

3200  FORMAT)*!  ENO  OF  JOB;  NUMBER  OF  BLOCK  ADDRESSES:  *,13)  003820 

3300  F0RHAT(*1TIME  OF  FIRST  POINT  IN  COMPOSITE  PLOT  (TCOMP)  DOESN'T  maTjJIslO 
ICH  ANY  STANOARQ  TIME  COMPUTED  FROM  THE  GIVEN  DT.*//  003860 

2  *  COMPOSITE  plot  MILL  CONTAIN  ALL  AVAILABLE  POINTS.*)  003860 

ENO  003900 


SUaROUTINE  SH (X,r,YC ,N,NP) 

0  0  3920 

c 

>4P 

MUST  3E  AN  ODD  INTEGER  .OF,  5. 

003940 

c 

COMPUTE  rHE  COEFFICIENTS  FOR  A  QUADRATIC  LEAST  SQUARES  FIT  CF  'NP* 

003960 

POINTS  ANO  COMPUTE  THE  FIT  OF  THE  DATA  (NO  OERIVATIvESJ  'TCdl*. 

DIMENSION  C(3)  ,X(1)  ,Y<1J  ,TC(1) 

JOLOOO 

N=  (NP-ll  fZ 

004020 

NN=N-m 

0  040  4  0 

N1=NN+1 

004060 

DO  10  1=1, M 

004080 

10 

YC  (I)=3.0 

004100 

DO  20  I=N1,N 

004120 

20 

YC (I) =0. J 

004140 

MM=H»1 

004160 

00  100  I=MM,NN 

0  04180 

Nl=t-M 

004200 

N2=H-M 

004220 

call  QLSQ(X,Y ,N1,N2,C) 

004240 

YC  (I)  =C  (1)  ‘Xl  I)  ‘X  ( I)  *0  (2)  ‘Xl  I)  ♦C<  J) 

0  04260 

V 

YP(ii=2.a»c(ii*x<ii+C(2i 

0042  80 

c 

YPP<I)=2.Q*C(1) 

0  043  0  0 

100 

CONTINUE 

004320 

RETURN 

004340 

£NO 

004360 

!  81 


SUBROUTINE  OERIVtCX, T , TP , N ,NP , I D) 

NP  MUST  BE  An  000  INTEGER  .GE.  3. 

10=1  FOR  FIRST  JERH/ATI/E. 

10=2  for  SECONO  QERIVATIVE. 

COMPUTE  THE  COEFFICIENTS  FOR  A  QUADRATIC  LEAST  SQUARES  FIT  OF  'NP* 
POINTS  AND  COMPUTE  THE  FIRST  DERIVATIVE  •YP(I)*, 

OIMENSION  C(3)  ,X(11  ,r(l)  ,TP(1) 

M=(NP-1) /2 

1<=M4-M*I0 

NN=N-< 

N1=NN*1 

00  le  1=1, K 
10  rp<l)=c.0 

00  20  I=N1,N 
20  YP(I)=0.3 
MM=K*1 

00  100  I=MM,NN 

N1=I-M 

N2=I YM 

call  QLSQ<X,r,Nl,N2,C) 

YP(I)=2.a»C(l»»X(I)*C(2) 

YC(I)=C(1)»X(I)»XII) ♦C<2»»X(I)*CI3> 

YPP(I)32,0»C(lt 
IJO  CONTINUE 
RETURN 
ENO 


004380 

004430 

004420 

3  Q  u  >.  Q 

0  0**  -iSO 
004480 
004500 
004520 
004540 
104560 
004560 
004600 
004620 
004640 
004660 
004660 
004700 
004720 
004740 
004760 
004790 
004600 
004620 
004640 
004660 
004660 
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o 


C 

c 

C 

C 

c 

c 

c 


SU3R0UTINE  QLSa(X,T,*41,M2,C) 

DIMENSION  X(l) ,Y<1) ,C(1) 

THIS  SUBROUTINE  COMPUTES  THE  QUftORATIC  LEAST  SQUARE  COEFFICIENTS 
'C(3)*  FOR  NP  OATA  POINTS  (NP  MUST  BE  AN  ODD  INTEGER  .G£,  3). 
THE  OATA  NEED  NOT  BE  EQUALLY  SPACED. 

C(l)»(X»»2)+C(2)»X*C(3)=t 
C< 1)  ‘X^C (2) =T 

SUBSTITUTE  XP=X-FF,  NHEPE  FF  IS  X  (  <  N1  ••N2)  /  2  ) 

Then  ci 3) =c (3»  *0 (D •ff»ff-C(2(»ff 
Cl2)=C(2J-2.a*C<l)»FF 
C(1)=C(1) 

F(Al,A2,A3,ai,82,a3,Cl,C2,C3)=Al»<32»C3-S3»C2) » A2» t 3 3»C 1 - 31*C 
1»(31»C2-92*C1) 


u  0490  0 
3 04920 
004940 
004960 
0  04980 
005000 
005020 
0  050  **  0 
0  05063 
005080 
005130 
305120 
3  05140 
3)  *-A3005160 
3 J5l?0 


FN=FLQAT(N2-N1+1)  005230 

NN=<N14N2I/2  335220 

FF=X(NNl  005243 

Z1=0  005260 

22*0  005230 

23*3  005330 

24=0  005320 

25*0  305340 

26=0  005360 

27*0  005330 

10  DO  20  I*Nt,N2  006400 

X2*X(I)-FF  305420 

X1=X2»X2  005440 

21*2l*X2  0OS460 

Z2a22+Xl  005480 

23*Z3*Xl*X2  0-5500 

24=24*X1»X1  005523 

Z5*25*r<r)  045540 

26*Z6+X2*Y (II  005560 

2r=27*Xl»Y<I>  005580 

20  CONTINUE  035630 

0EN*F(Z4,Z3,Z2,Z3,Z2tZl,Z2,21,FN)  005620 

C(l) =F(Z7,Z6, 25,Z3,Z2, 21 ,Z2, Z1,FN) /OEN  OOSB-O 

C(2)»F<Z4,Z3,Z2,27,Z6tZ5,Z2,Zl,FNI/0EN  005660 

C(31 =F(Z4,Z3,Z2,Z3,Z2, Z1 ,Z7, Z6,Z5>/DEN  005680 

C  (3)  =C(  3)  *C(1 )  •FF*FF-C  (2)*FF  0  057  3  3 

C(2) =C(2l-2.a»C<lJ ‘FF  005720 

RETURN  035740 

ENO  305750 


18 


I'.'-if  '■  I  (!,  “j' ,w<>, -"Air ,  ) 

'  -M '  N  »  M  s  r ,  A 1 , 1 1 (! ,  3 )  ,  '  ( ;  5  0 , 3 1  , .'  ^  ( 1 5 u ,  3 » ,  r  T  ( !  ti  u ,  ^ : 
1  ,  I  I  U  A  (  P  I  ,  r  ( lb  J  I  ,  jRL  5  ( 150  »  ,  ■'  I’f  '■  <  1  50  )  , )(«  ( 1  ^0)  ,  TA  1 150  >  , 

:  5  (  150  I  >  ■  '1N(  1  <?)  ,  r  MX  f  1  ?» 

t:(100) 

■  All  jTxj.a‘*/.jv/?,c/,jr/4.o/,r\(/s.  o/,n«/5oo./ 

;  ‘  L  *  f  (  ;  r  •  <  ( I  ( ■■<  A  X  T ) '  'j  1 1  •  1 1 

■f  ,  T.  la.Q  .OR.  51  .1.  3.0)  HRIT-  (5,2000)  51 

MA  I,-'  .’9>E\r>,f  Fppr>  ’M  if.NM'l  'F  t  :  HE  I’lSl 


I  .  3.0)  HRIT-  (5,2000)  51 
'  M  !  f.N5t  >1  'F  T  :  HE  1  »  I  S  1  ' 


■i'  '.0  "liNR 

)  =  1 : )  F  T  ( I ,  ne 
r  :■  I  M  F  .  1  )  11  .  0 

’  .  (Mr,  -If 

F  P  V  i-  M  M  (  1  1 

■  ,  I  '  )  -  I  I  lA  ■ 

r "M  .11, 


'  If  1  >  1  f  HN'  1)  ) 
1  .  0  t  p»  S (  1  )  ■ 


-  I  1  ■  A  r  I  I  1  I  <  (  F  M  N '  2 )  )  ) 
i/  f‘i.M  ,i(.  0.1)  F  MNF  :•) 'I  -’I  ( ,  .1 

I  .  'I-  (  ..M  (  ’  ) 

r  ■,  '  I  ri  I  >a  '  '  :  r  r  r  ( F  “Mf  3)  I  ) 

. f  I  •  f  ■(  ,,  r,  0.0)  r«K(  3)  pF hn  ( 3)  ' ■ . a 

Jr.  IXISFO.  J,3.a,10«T:'3fc  (5£;,)  ,  -  10  ,ST  ,0.  1)  ,0.  0  ,  D1  ) 
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(.111.  9<:  3  CO.  75, 3.  0,  11  mT  3I5f’  <  I  N )  ,  1 1  ,  ST  ,  90 . 0  ,  F  MN  (  2)  ,  53  ) 

CAI.U  4xrs<-l.  5,0.  .  .IIHZ  0I3P  (IN)  ,ll,ST,90.f).rps(3)  ,3T) 
:ai.(.  STMBrjU'l .  5 . 6. 0  .0  .  tu  ,  bH  test  I  ,90,0,6) 

-ILI.  SYM93L(-1.5,6.8i«,a.l<.,3eSl,9)).0,10) 

call  5TM->i;i  1  ,a  ,  5, 0  ,0  Ib-tVFbl  ABl.E  COPE)  ,90.3,15) 

Fi’N=  , 

■U'-  MDRBER  C  1.0  ,  «.  1 ,0. 14,F'’*<,“0.  0, -1) 
fAn  R1  (Tr, 1<<(N1,  J),  MP, 4, F“N<t), or,  5T) 
r.j  M  Pi.  (  r  f  ,  T  '  (  Ml  ,  Jl  ,  NP  ,  9,F  MN  (  ?)  ,  CT,  FT  1 
...'L.  PI.  (’•,7  7(NI,0),NP,«,F)1N(3),OT,ST) 

C.".  1. 1  PL  O’  (  3. 0  ,  5,  3  ,-.0) 

lAi...  a  t  15  I  0.  0  ,  3.  3  ,  10m)  IME  (SE  C  )  ,  -  10  ,  SI  ,  3.  3  ,  3  .  0  ,  C  F  i 
.JM  t  Ml  (  F  MM  (  5  i  ,  PMN  <5  )  ,  F  MN<  7  )  ,  r  MN  (  A)  ) 

VMM'FI.  ,1  7  I  (  IF  T  X  (FRM)  ) 

’'XN  .rT.  0,0)  )Mr*=)MN-l.O 

C1I..1  4*1  SI  0.  0  ,  0.  0  .  17  MV  FI  rii:  TT  '  I  r  r  FSEC)  ,  1  7,  Sr,  90. 3  ,  x“N, 

MP  -MM'-  M  I  ‘  1 
Ml  M  '  -  1 

5  0  Cl  ,  NP 
r  I-  C  r  )  C  (  I  .  MF  ) 

rr  iNP»i ) -o.o 

TT iMr»7 ) »nr 
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3357-0 
3  0  5a  )0 
3v5.a2  0 
3052-0 
J  j  5  a  5  3 
035“ ao 
0  3590  0 
3  U5920 
C  35941) 
0a59bU 
3  359  =  3 
306030 
0  060  20 
y  060  4  0 
0  06060 
006030 
306130 
306133 
3-6143 
005163 
3  3  6  1  a  0 
005200 
005270 
035240 
3  3o2  o  3 
006203 
306303 
006320 
006.343 
036363 
306330 
006430 
J  3642  0 
036443 
3  064  5  3 
0  064  i0 
306^00 
3  365  2  3 
3365-3 
0  06450 
345440 
30660C 
0  366  2  0 
0  Q  f?.  b  *•  0 

3  J  b  F  0  -) 
3  Uh/ 00 

0r)s?'’0 

J  0  b  '  -  0 
3  ^  ^  ” 


a?iN=FLO/'.  r(iFTx(FPN/ioc.a))*t.iii«3  i-'Sc-i 

IF  (FPN  ,LT.  a.Q)  4FCN=AMN-in'j4t  0  0  b  - 'll 

CAUL  AX  I  S  (  a  .  0  ,  0.  n  ,  I’H.' rPE!.  I  c  I  ^SF 1  ,  1  H  ,  A  J  ,  1  ,  ■  ■  J .  •  p  0ibf;3 

NP  =  S6-NP»1  OJ6=P‘.'; 

NF^N")-!  Qub'Ab.-) 

DO  loa  I=1,NF 

1  in  TT  (I )  =  T  ( i4NF)  r; 

’■T(NPp-ii-a.n  lo;"-'' 

IT  )  r  01  I  0  ■  0  A  C 

CAUL  PI  (  I  r  ,  <  A  1  W6  I  ,NF  ,4  ,AhN  ,04  ,FT  )  J  Q  7  0  b  0 

CAUL  PL  (  T  r  ,  YA  (  N5I  ,  NP  ,'9  ,  APN  ,  JA  ,Sr  )  0  3  71^10 

CALL  PL  1 1 T ,Z4 ( N5)  ,NP ,« ,AMN,D4 ,SY»  1 0 7 ; 3 j 

CAUL  PL  (  r  •■  ,  A?FS(  N5»  ,  MP  ,?,A’!.p  ,P)A  ,c;  M  A371'G 

CALL  P'..  p  r  ! '!<  p.  0  ,  t  G  .n  )37;aa 

pc  Yiirpo  0  3  7  A  •  ■ 

pnO  ' ' 


I 


SuaRCUTINE  PL ( T , T , NP , NSYM, TMN , CT , St )  3J723Q 

CIHENSION  TdJ.Td)  0C7223 

CATA  lNl/2a/  0072‘*0 

S1=>4P»1  Q07260 

N2=NP*2  0u7290 

t(Ri)=rMN  catioa 

t(N2)=0t  007320 

SS=St  Ju73L0 

IP  (QY-IOO.)  13,20,20  007360 

10  SS=SS*1.  307280 

SO  TO  3C  007400 

20  SS=SS»a.5  307420 

10  Y4)(  =  Y>iN*SS*OY  3074^0 

30  63  1=1, NP  007460 

IF  (Y(X)  .or.  rnxi  rdlzYMX  007480 

60  CONTINUE  307500 

call  line  (  T,  y,  nP,  1,IMT  ,NSTM)  037520 

C  4RITE(6, 20001  T( 1)  ,r (1! , T (NP) , Y(NP)  ,T (Nl)  ,T(N2)  ,  YNN, or , SY ,YMX ,  007540 

C  1  SS,NP,NSYM  007560 

3  20  30  FORKATdX, 1155.3,  15.131  007590 

return  007600 

ENO  007620 


1  '5t; 


SuaROUTINE  PC (F INC, Fixe, NS T, NJ, INC, test ; 

CQMHON  X(15Q,S),r(15a,9) ,2(150, 9) ,XX(150,g),TTll50,9) ,2Z(l5C,?) 
OINENSION  FHNC (3, 2) , FHXC (3,2) 

DAT4  SX/5.a/,S2/5.Q/,JEL/2.3/,F'T/0.  105/,J1/7/,J2/?,/,ISy;/2/,:S''” 
1/ 

FQEL  =1. O/OEL 

yNX=aMAXl(FMXC(2,l),F*1xC(2,2)) 
yH<rF^OAT( IFI* (YNX) ) 

IF  lYMX  .&E.  0.3)  YNXsTMX»l.a 

ynn=AHIN1(FMNC(2,1), FHNC (2,2)) 

SY  =  (  YHX-YNN)  •REEL 
:  =  IFIX(SY) 

IF  (SY  .ST.  FLQAT(I))  SY^FUOATd)  *1.0 
IF  (  SY  .ST.  12.0)  SO  TO  25 
SO  TC  70 
35  SY=12.Q 

YH  X=  YHm.ST»OEL 

IF  (FHXC(2,1)  .lE.  THX)  go  to  50 
00  AO  IiNST,N2,INC 

I"^  (YYC.Jl)  .GT.  YHX)  YT(I,Jl)=yHX 

♦0  continue 

50  IF  (FMXC(2,2)  .(.£.  YHX)  GO  TO  70 

00  50  I=NST,N2,INC 

IF  (YY(I,J2)  .GT.  YMX)  fY(I,J2)stHX 
50  continue 

7  0  XMN=ANIN1(FHNC  11,1),  FMNC  (1  ,2)  ) 

2HN=AHIN1 (FMNC (3, 1) , FHNC(3,2) ) 

XMX*XMN*0EL»<  SX«0.5) 

2MX=2mnyO£L»(SZyO.S) 

IF  IFMXCd,!)  .LE.  XHX)  GO  TO  90 
DO  80  I*NST,n2,InC 

IF  (XX(1,J1)  .GT.XMX)  XX(I,Jl)iXMX 

10  CONTINUE 

90  IF  (FHXC(1,2)  .L£.  XHX)  go  TO  110 

00  100  I=nST,N2,INC 

IF  (XX(I,J2)  .ST.  XHX)  XX(I,J2)=XMX 

130  CONTINUE 

110  IF  (FHXC(3,1)  .LE.  2hx)  GO  TO  130 
30  120  I=nST,n2,INC 

IF  (ZZ(I,U1)  .GT.  ZHX)  ZZ(I,J1)=ZMX 

120  continue 

130  IF  (FHXC(3,2)  .LE.  ZHX)  GO  TO  150 
DO  IHO  I=NST,N2,INC 

IF  (ZZ(I,J2)  .GT.  ZHX)  ZZ(I,J2)=ZHX 

140  CONTINUE 

150  call  AXIS(0.0,a.0,llHT  OISP  ( in, , -11 ,SY , 0. 0 , YHN,CELI 
CALL  AXIS  (0.  0  ,0.  0  ,  IIHZ  OI^i  (  IN)  ,  11  ,  SZ  ,  9#  .  0 , 2  HN  ,  OEL) 


00  170  I*NST,N2,INC 
yi=(YY(I,Ji)-Yhn)*RCEL 
Z1=(Z2(I,J1)-Z“N)*RDEL 
CALL  SYHaOL in ,21 ,mT .ISY7, 0. 0 ,-l) 
T1=(YY(I,J2)-Yhn) *90 el 
21  =  (  221  I. J2)- 2 HN,  ‘POEL 
170  CALL  SYMBOL (Y1 ,21 , HT ,ISY5, 0. 0,-2) 
call  FL  OT  (  0. 0  ,  h.  0  ,-3  ) 


J076-.0 
S  SZboO 
3  3  75  3 
/33SZ7:3 

0"77?; 

a  077  40 
0  0  7  7  5  0 
0  0  77  iC 
007833 
307823 
3  07940 
007850 
307880 
307900 
0^7923 
007540 
307950 
0.7990 
008000 
0  080  23 
008040 
008060 
008080 
008103 
008123 
308140 
003160 
008130 
008200 
008220 
008240 
008260 
008230 
308330 
008323 
0  08340 
003360 
033330 
008400 
003420 
3  334,.0 
003450 
308490 
003500 
303523 
a  0  85'«0 
008560 
081580 
OOSbOO 
308620 
.  085-,3 
303550 
308610 
.08700 
039720 


APPENDIX  C 
PROGRAM  RSD 


n  n  n  n  n  n  n 


r 


PROGRAM  RSti<  INPUT  . OUTPUT  .  TAPE7.  TAPE5=  INPUT  .  I APE6=0UTPUT  )  000100 

C****************************t**M*ili**»*1(*****M***»M%t»t*********>li**«**M*Q00120 
^  000140 

THIS  RESTRAINT  SYSTEM  DYNAMICS  (RSD)  PROGRAM  DRAWS  6  GRAPHS  WHICH 
SHOW  THE  MOTION  OF  THE  HEAD»  SHOULDER*  ELBOW*  WRIST*  HIP*  KNEE*  AND 
ANKLE  AT  6  TIME  POINTS  DURING  THE  TEST. 


THE  INPUT  UARIABLES  READ  BY  SUBROUTINE  INPT  ARE  DEFINED  IN  THE 
WRITE-UP  DESCRIBING  THE  INPUT  DATA  FORMAT. 

THE  COMMENTS  IN  THIS  SOURCE  LISTING  SHOULD  ADEOUATELY  DOCUMENT  THIS 
SMALL  PROGRAM. 

THE  FOLLOWING  5  SUBROUTINES  ARE  PART  OF  THIS  PROGRAM: 

FRAME  —  DRAWS  THE  PLOT  FRAME  AND  THE  SEAT  IN  THE  FRAME* 

BODY  —  DRAWS  BODY  ELEMENTS? 

TANG  —  COMPUTES  AND  DRAWS  TANGENT  LINES  BETWEEN  BODY  ELEMENTS? 
INPT  —  READS  ALL  DATA  EXCEPT  THE  TITLE  CARD*  COMPUTES  CALIBRATION 
FACTORS*  AND  CONVERTS  DATA  FROM  COUNTS  TO  INCHES. 

INTRPL-  INTERPOLATES  SHOULDER  HARNESS  POINTS  BETWEEN  THE  FIRST  AND 
FIFTH  BELT  FIDICUAL. 


000160 
0001 GO 
000200 
000220 
000240 
000260 
000280 
OOOSOO 
000320 
000340 
000360 
000380 
000400 
000420 
000440 
000460 
000480 
000500 
000520 

C**$ili*****^***M*«********r(t1i>lt]lt***tilt**ittm*m**W*****it******it»***********$**ili0005A0 

DIMENSION  DATA(1024)*PX<6)*PY(6)*TITLE(6)  000560 

COMMON  X( 18) * Y< 18) *R<7) *ANG*SX2*SY2* ITM  000580 

C  PX  AND  PY  CONTAIN  THE  SIX  PLOT  ORIGINS  IN  SEQUENCE;  000600 

DATA  PX/0.0*3.25*3.25*-6.5.3.25*3.25/*PY/4. *0.*0.*-3.*0.*0./  000620 

CALL  PL0TS<DATA*1024*7)  000640 

C  PLOT  DATA  USING  A  92  %  SCALE  FACTOR:  000660 

FCTR-0.92  000680 

CALL  FACTOR (FCTR)  000700 

C  IP  IS  THE  TIME  OR  PLOT  INDEX?  IP  IS  INCREMENTED  FROM  1  TO  6  FOR  THE  6000720 
C  TIME  samples:  000740 

10  IpaO  000760 

C  READ  AND  PRINT  THE  PLOT  TITLE:  0u07B0 

READ<5*1200)  TITLE  000800 

IF  (E0F<5))  99^' *20  000020 

20  WRITE(6*2200)  TITLE  000840 

WRITE(6*2300)  000860 

C  subroutine  INPT  READS  THE  REMAINING  SETUP  DATA  PLUS  THE  0  TIME  DATA  000880 

C  AND  CONVERTS  THE  DATA  FROM  COUNTS  TO  INCHES!  000900 

CALL  INPT (IP)  000920 

C  CONVERT  RADII  TO  PLOT  SCALE  INCHES?  000940 

C  THE  PLOT  SCALE  IS  1/2  INCH  =  1  FOOT  (BEFORE  APPLICATION  OF  SCALE  000960 

C  FACTOR  'FCTR"  ABOVE):  000980 

DO  30  I»l*7  001000 

30  R( I )=R( I )/24.  001020 

WRITE(6*2000)  (  R  ( I  )  *  I>«1  *  7 )  *  ANG  001040 

IP=IP+1  001060 

11=18  001080 

GO  TO  55  001100 

50  IP-IP+1  001120 

C  CALIB  IS  AN  ENTRY  POINT  IN  SUBROUTINE  INPT?  DATA  ARE  READ  AND  001140 

C  CALIBRATED  FOR  THE  IP-TH  FRAME?  001160 

CALL  CALIB(IP)  001180 


w  r  j 


r 


ir=i6 

C  CONVERT  ALL  X  AND  Z-AXIS  DATA  TO  PLOT  SCALE  INCHES  AND  ADJUST  TO 
C  LOWER  LEFT  PLOT  ORIGIN  <X  AND  Z  ARE  PRESENTLY  REFERENCED  TO  THE 
C  INTERSECTION  OF  THE  SEAT  PACK  AND  SEAT  PAN).' 

55  DO  60  I=*ltII 

X<I)=X(I>/24. 0+2.0 
60  Y(I)»Y(I)/24.0+0.5 

C  PRINT  X  AND  Y  DATA  IN  PLOT  SCALE  INCHES: 

URITE<6.2100)  <X(I) fY<I)fI=ltlI) 

C  SET  ORIGIN  FOR  PLOT  'IP': 

CALL  PL0T(PX(IP).PY<IP).-3) 

C  10  AND  lA  CONTROL  ORDINATE  AND  ABSCISSA  ANNOTATION  (0 —  ANNOTATION 

c  IS  omitted;  i —  annotation  is  drawn;: 

10=0 

IF  (IP  .EQ.  1  .OR.  IP  .EQ.  4)  10=1 
IA=0 

IF  (IP  .GE.  4)  IA-1 
C  DRAW  PLOT  AND  CHAIR  OUTLINE: 

CALL  FRAMEdOiIA) 

C  DRAW  FIGURE  IN  THE  CHAIR: 

CALL  BODY 

IF  (IP  .LT.  6)  GO  TO  50 

C  PRINT  PLOT  TITLE  BELOW  THE  SET  OF  SIX  PLOTS: 

CALL  SYMBOL { -5. 95.-I .Of 0.14»TITLE. 0.0,60) 


001200 
001220 
001240 
001260 
001280 
001300 
001320 
001340 
001360 
001380 
001400 
001420 
001440 
001460 
001400 
001500 
001520 
001540 
001560 
001580 
001600 
001620 
001640 
001  660 


CALL  PL0T(5.0f0.0f-3>  001600 

GO  TO  10  0C17O0 

999  CALL  PLOTE  001720 

STOP  'END  OF  JOB*  001740 

1200  F0RMAT(6A10)  001760 

2000  FORMAT(*  RADII  IN  PLOT  SCALE  INCHES  PLUS  THE  NOSE-TRAGEON  ANGLE  1001780 
IN  RADIANS  ARE:*/( 11X,0F1O.3) )  001800 

2100  F0RMAT(»  CALIBRATED  DATA  POINTS  IN  PLOT  SCALE  INCHES  ARE:*/  001820 

1  (HXf8F10.3))  001840 

200  F0RMAT(*1  TEST  TITLE!  *f6A10)  001060 

300  format://*  CALIBRATION  DATA,  RADII.  AND  CALIBRATED  DATA  ARE  PPINTE001880 

ID  IN  THE  FOLLOWING  SEQUENCE  FOR  INDEX  1  =  1  TO  16:*/  00 1 900 

2  5X,*HIP.  KNEE,  ANKLE,  SHOULDER,  */5X,*ELB0W.  WRIST.  rRAOEON,  N0SE0O192O 

3,*/5X,*LAP  HARNESS  BUCKLE,  AND  7  SHOULDER  HARNESS  POINTS.*//  001940 


4*  CHECK  WRITE-UP  OF  INPUT  CARD  FORMATS  FUR  VARIABLE  DEF IN  I T IONS . * ' 00 1 960 


END 


101900 


i 


I 


n  n  n  n 


c 


c 


c 


c 


c 


c 


c 


SUBROUTINE  FRAME(IO.IA)  002000 

002020 

THIS  SUBROUTINE  DRAWS  THE  PLOT  FRAME  PLUS  THE  CHAIR  WITHIN  THE  FRAME. 002040 
THE  PLOT  SCALE  IS  1/2  INCH  -  1  FOOT.  002060 

002080 

COMMON  X(18)tY<ia».R<7).ANG.SX2.SY2.1TM  00'>100 

DIMENSION  IABSC(7)fI0RD(5)  002120 

DATA  IABSC/2H-4»2H-3»2H-2»2H-1>2H  0»2H  1,2H  2/ » lORD/lHO f IHl . 1H2 .  002140 

1 1H3 . 1H4/ f HGHT/0 . 07/ . SX/3 . 0/ » SY/2 . 5/  002160 

DEFINE  IMAGE  FRAME.’  002180 

CALL  PL0T<0.0»0.0t3)  002200 

CALL  PLOT<SX«O.Of 2)  002220 

CALL  PLQT<SXfSY.2)  002240 

CALL  PLQT<0. •SY.2)  002260 

CALL  PL0T(O. .0. #2)  002280 

DRAW  DASHED  LINE  AT  DECK  HEIGHT — 2.94‘  ABOVE  ABSCISSA:  002300 


Yl»2. 94/24.  002320 

XD»0. 096774  002340 


X1=-XD 

DO  20  I>1>16 
Xl-Xl+XD 


002360 

002380 

002400 


CALL  PL0T(X1.Y1,3)  002420 

Xl-Xl+XD  002440 

20  CALL  PL0T<XtfYlt2)  002460 

DRAW  X-AXIS  TIC  MARKS:  002480 

X1*0.  002500 

Yl-0.07  002520 

DO  40  I»l*5  002540 

Xl-Xl+O.S  002560 

CALL  PL0T<Xli0.0f3)  002580 

40  CALL  PL0T(X1»Y1,2)  002600 

DRAW  Y-AXIS  riC  marks:  002620 

Xl-0.07  002640 


Yl-0. 

DO  60  I«lt4 
Yl-Yl+0.5 


002660 

002680 

002700 


CALL  PL0T<0.0.Y1.3)  002720 

60  CALL  PL0T(X1»Y1,2>  002740 

FOR  lA  Of  DRAW  ABSCISSA  ANNOTATION:  002760 

IF  <IA)  85 f 85 f 70  002780 

70  X1  —  1.59HGHT  002800 

Y1—.12  002820 

DO  80  I«tf7  002840 

CALL  SYHB0L<Xl.Yl.H0HTfIABSC(I)f0.0f2)  002860 

80  Xl-Xl+0.5  002880 

FOR  10'  Of  DRAW  ORDINATE  ANNOTATION:  002900 

85  IF  (10)  120fl20f90  002920 

90  XI  — 1.5»H0HT  002940 

Y1»-0.5*M«MT  002960 

DO  100  I«lf5  002980 

Yl-Yl+0.5  003000 

100  CALL  SYMBOL<Xl.YlfHGHTf lORD(I)fO.Ofl)  003020 

PRINT  ELAPSED  TINE  IN  UPPER  LEFT  CORNER:  003040 

120  CALL  SYMBOL  < 0. 2 f 2 . 25 f HGHT f ITMf 0. Of  3)  003060 

CALL  SYMB0L(0.48f2.25fHGHTf4MMSECf0.0f4>  003080 
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c 

GRAU  SEAT  CONFIGURATION! 

003106 

c 

SX2,SYZ  ARE  THE  COOROINATES  OF  THE  UPPER  LEFT  CORNER  OF 

THE 

CHAIR 

003120 

r: 

SEAT  pan;  THE  SLOPE  OF  THE  SEAT  PAN  IS  7.25  DEGREES  ANO 

THE 

SLOPE 

003160 

c 

OF  the  SEAT  SACK  IS  12.67  DEGREES. 

003160 

SX2>1.261 

0031S0 

ST2*C.59«* 

003200 

CALL  PL0T<1.261,0.S«3> 

003220 

CALL  PL0T(SX2,SY2,2) 

003260 

CALL  PLOT(2.0>0.5t2) 

003260 

CALL  PL0T(2. 36, 2.19.2) 

003280 

c 

GRAW  SEAT  BACK  HEAD  REST! 

003300 

CALL  PL0T(2.2G2,1.637,3T 

303320 

call  pL0T(2. 223,1. 666,2) 

003360 

CALL  PLOT(2.314,2.052,2) 

003360 

call  PL0T(2. 356,2. 063,2) 

003380 

RETURN 

003600 

ENQ 

003620 
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SUSRCUTINE  aOQT 


003440 
003460 

THIS  SUBROUTINE  DRAMS  THE  BOOT  ELEMENTS  RLUS  THE  SHOULDER  HARNESS  AN00034dO 
lap  3clT  points  IN  EACH  FRAME.  0"35ja 

00352'’ 

OIHENSION  U(q)i>/<B)  003540 

COMHCN  X1,X2,X3,X4,X5,X6, xr, X6,3X(d», XS3,XL3,Y1,Y2, Y3,r 4, Y5,Y6,Y7, 003560 
1Y3,3Y(5) ,YSa,YL3,Pl,R2,R3,R4,R6,R6,R7,ANG,SX2,SY2,lTM  a u 35 30 

DATA  Al/3,0/,A2/36P.a/,HGHTXO.C7/,  I3C3/4/  0O36J3 

ORAM  HIP  and  knee  CIRCLES  I  003620 

CALL  CIRCL£<X1+R1,Y1,A1,A2,R1,R1,A1;  0u3640 

call  circle <X2*R2, Y2,Al,A2tR2,R2, At)  003665 

IPlTst  FOR  HIP-TO-KNEt  TANGENT  LIMES  AnO  IPLT>1  FOR  ALL  OTHER  OuIGSO 

CALLS  TO  SU3ROUT1NE  ‘TANGM  013733 

IPlT=1  003720 

COMPUTE  HIP-TO-KNEE  TANGENT  LINESI  003740 

CALL  TANG(Xl,Yl,X2,Y2,Rl,R2.IPLT,SX2tSY2)  103760 

75  IPLT=2  003730 

ORAM  ankle  CIRCLEI  133830 

CALL  ClRCLE<X3»R3,Y3fAl,A2tR3,R3,Al)  003820 

3RAH  ANKLE-TO-KNEE  TANGENT  LINES!  0038-.J 

call  TANG<X2, Y3,X3,V3,R2,R3,IPLT,SX2,SY2)  053860 

DRAW  shoulder,  ELaOU  AND  WRIST  CIRCLES  ANO  TANGENTS!  003880 

call  CIRCL£(X4*R4,Y4,At,A2,R4,R4,At)  353930 

call  CIRCL£(XSHR5,r5,Al,A2,R5,R5,At)  003920 

CALL  CIRCLE<X6h-R6,Y6,A1,A2,R6,R6,A1)  003940 

IPLT»3  003960 

CALL  TANG<X4,r4,X5,rS,R4,R5,IPLT,SX2,SY2)  3o3980 

IPLT»4  004100 

call  TANG(X5,YS,X6,r6,R5,R6,IPLT,SX2,ST2)  004020 

DRAW  HEAD  CIRCLE!  304040 

CALL  CIRCLE(X74R7,Y7,At,A2,R7,R7,Al)  0a4060 

PLOT  EYE  POINT!  004530 

call  3YnaaL(xa,Ya,HGHT/2. 0,3,0. 0,-1)  dolioo 

COHPIJTE  and  draw  head  Z-AXIS  LINE!  304120 

theta  —  ANGLE  TRAGEON-NOSE  LINE  MAKES  IN  X,Y  AXIS  THROUGH  TRAGEON  004140 
POINT.  004160 

THETA=ATAN2<Y8-Y7,Xa-X7)  OMAISO 

IF  (THETA  .LT.  0.0)  THETA»THETA+6. 2831853  034210 

ANG  —  angle  SETWEEN  TRAGEON-NOSE  LINE  AND  HEAD  Z-AXIS.  004220 

ANG  IS  COMPUTED  IN  RADI  ANO  IN  SUBROUTINE  INPT I  00*,240 

THETAaTHETA-ANC  004260 

XPaR7*C0STTHETA)  504230 

YP=S7»SIN<THETA)  ObwZIO 

XL1=X7»XP  004320 

XL2=X7-XP  514340 

YL1»T74YP  504560 

YL2»Y7-YP  0043KO 

PLOT  Z-AXIS  LINE  DETERMINED  BY  POINTS  XLl.YLl  AND  XL2,YL2l  054430 

call  PL0T(XL1,YL1,3)  034420 

call  PL0T(XL2,YL2,2)  034440 

MRITE(6,2100)  XL1,YL1,XL2,YL2  004460 

PLOT  restraint  BELT  LOWER  ATTACH  POINT  «XL8,YL0)  PLUS  THE  LAP  BUCKLE  00443') 
POINT  (8X(1) ,aY(l)) !  9U4530 

call  SYMBOL(XLa,YL8,HGHT,I8CO,C.a,-l)  004520 
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call  PLOT<aXtl) ,0Y(1>,2)  004540 

C  INTERPOLATE  9  OQINTS  9ETHEEN  t-ST  ANO  5-TH  BELT  POINTS?  INTERPOLATE  004560 
C  X  OATA  FOR  A  GIVEN  Yl  004580 

OYa(BY<5»-8Y(l))/10.  304630 

00  100  Islt9  004620 

IJO  U(I)=aY(l)*OY»FLOAT(I)  034640 

11=6  004660 

12=9  004680 

CALL  INTRPLdXfSTd)  fBX(l)  ,I2,U,V)  004230 

WRITE  (6,2090)  3X(1)  ,SY(1)  ,  (V(I),U(I)  ,1*1,9)  ,(8X  (I)  ,BY(I)  ,  1x5,3)  3  04720 

C  PLOT  THE  9  INTERPOLATED  POINTS!  004740 

00  120  1x1,9  004763 

120  CALL  PLQT(V(I) ,U(I),2)  004780 

C  PLOT  THE  LAST  4  SHOULDER  HARNESS  POINTS!  034839 

00  13G  1x5,6  OC4820 

133  call  PL0T(9X<I),aY<I),2)  004840 

C  PLOT  THE  SHOULDER  HARNESS  SEAT  ATTACH  POINT!  0C4860 


CALL  SrHaOL(XS9,rSa,HGHT,I3CO,O<0,-2>  904683 

RETURN  094900 

20)0  F0RHAT(x  LAP  SELT  AND  SHOULDER  HARNESS  X,Y  POINTS  ARE  (BUCKLE  POIN0u4923 
IT,  9  INTERPOLATED  POINTS,  PLUS  THE  LAST  4  SHOULDER  HARNESS  POINTS)  0049'»0 
2!X/  <11X,8F10.3) )  004960 

2133  FORMAT(x  X,Y  POINTS  AT  BOTH  ENOS  OF  THE  HEAD  Z-AXIS  LINE  ARE!*/  004980 

1  11X,4F10,3)  005030 

END  005020 
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SUBROUTINE  T4NG(Xl,Tl,X2,y2,Rl,R2«IP(.T,S)(2»SY2)  JdSO^O 

OINENSION  LABEL(2t4t  SSSCSQ 

DATA  090/1.57079633/  OJSreC 

l.LAoEL/lOH  HIP  AND.OH  KNEE  tlOH  KNEE  ANQ,8H  ANKLE  •  005030 

2  lOHSHOULOER  A,3HN0  ELBOW, ICH  ELBOW  ANO,8H  WRIST  /  JOBIOO 

THIS  SUBROUTINE  COMPUTES  ANO  DRAWS  THE  TANGENT  LINES  CONNECTING  005120 

THE  TWO  CIRCLES.  THE  CIRCLE  CENTERS  ARE  AT  XI, T1  AnO  X2,T2  ANO  THE  OLSILC 
RADII  ARE  R1  ANO  R2.  THE  CIRCLES  WITH  TANGENT  LINES  PORH  THE  BOOT  005160 
SEGMENTS.  005130 

WHEN  THIS  ROUTINE  HAS  CQOEO,  R1  HAS  ALHATS  >  R2  ANO  XI, 71  WAS  005200 

ALWAYS  FURTHER  FROM  THE  PLOT  ORIGIN  THAN  X2,Y25  THUS  WE  WERE  ALWAYS  905220 
WORKING  FROM  THE  SMALL  CIRCLE  TO  THE  LARGE  CIRCLE.  HOWEVER,  THE  0052<*0 

algorithms  here  OEREVEO  SUCH  THAT  THE  COMPUTATIONS  SHOULD  BE  CORRECT  005260 

EVEN  IF  THESE  CONOITIONS  ARE  NOT  FULLFILLEO.  005280 

X0«X1-X2  005330 

Y0=Y1-Y2  905320 

SLOPE  —  SLOPE  OF  line  THROUGH  THE  TWO  CIRCLE  CENTER  POINTS  I  "95340 

SLOPES YO/XO  005360 

TH£TAsATAN(AaS(SLOPEIJ  005380 

FCTaSIGNd.O,  SLOPE)  905400 

3IST  —  DISTANCE  BCrwEEN  THE  TWO  CIRCLE  CENTER  POINTS!  005420 

OISTsSaRT(XO*XO*YO»YO)  005440 

PHIsASIN<  <R1-P2I /OtST)  905460 

angles  THETA  ANO  PHI  ARE  REQUIRED  TO  COMPUTE  ANGLES  A1  ANO  A2  WHICH  005480 
ARE  THEN  USED  TO  DEFINE  THE  X  ANO  T  COORDINATES  OF  THE  TANGENT  005500 

POINTSI  005520 

AlaO90-TM£TA-FCT*PHI  005540 

A2s090-THeTA>FCT*PHI  345560 

SUaSIN(Al)  005530 

SL«SIN(A2>  005600 

CUs>FCr*COS<Al)  005620 

CL»FCT»COS<A2)  005640 

COMPUTE  X  and  Y  upper  AMD  LOWER  TANGENT  POINTS  FOR  CIRCLE  H  005660 

XU1=X1.R1*CU  905680 

YU1»Y1»R1*SU  905700 

XL1»X1»R1*CL  005720 

YL1»Y1-R1*SL  005740 

COMPUTE  X  ANO  V  UPPER  AND  LOWER  TANGENT  POINTS  FOR  CIRCLE  2 1  005760 

XU2*X2*R2»CU  005780 

YU2«T2»R2*SU  005890 

XL2«X2»R2»CL  005820 

TL2»Y2-R2»SL  005*40 

•LOT  UPVER  TANCENT  LINE*  905860 

CALL  PL0T(XU1,TU1,3)  005880 

call  PL0T<XU2,TU2,2)  005900 

HRITE(6, 21001  LABEL  (l.IPLT),  LABEL!  2,  IPLT>  ,  XUl ,  YUl  ,XL1,  YLl  ,XU2 .  YU2 , 0  05920 
1  XL2,Yl2  005940 

PLOT  LONER  TANGENT  LINE!  0*5960 

50  CALL  PL0T!XL1,YL1,3)  095990 

IF  (IPLT>1)  103,100,60  006000 

60  CALL  PLCT(XL2,YL2,21  006020 

RETURN  006040 

30TT0M  HIP-TO-KNEE  TANGENT  LINE  MAY  INTERFERE  WITH  THE  UPPER  LEFT  006060 

CORNER  OF  The  SEAT  PAN  (SX2,SY2i;  CHECK  ANO  DRAW  LINE  ACCORDINGLY.  016090 


IF  IT  JOES  INTERFERE,  COMPUTE  THE  TANGENT  FROM  THE  CORNER  OF  THE  306143 
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C  SEAT  PftN  TO  THE  KNEE  CIRCLE.  ,  306120 

C  COMPUTE  SLOPE  OF  TANGENT  LINEl  aoeiLO 

130  SLOPe=( YL1-YL2I/(XL1-XL2)  306160 

C  COMPUTE  Y  (fC»  COOROINATE  FOR  SEAT  PAN  SX2  POINT!  IF  YC  >  SY2,  THEN  036130 

C  THE  SEAT  PAN  DOESN'T  INTERFERE  WITH  THE  HlP-TO-<Mtt  TANGENT  LINE!  306200 

YC=SLOPE»«SX2-XL2) +YL2  006220 

IF  (YC  .GE.  SY2>  GO  TO  60  0C624C 

C  COMPUTE  TANGENT  FROM  SX2,SY2  -->  KNEE  CIRCLE  (R2) I  006260 

C  KNEE  CIRCLE  CENTER  HUST  BE  TO  THE  LEFT  OF  SX2,SY2I  006280 

IF  (X2  .GE.  SX2)  GO  TO  ISO  006330 

C  CIST  —  DISTANCE  FROM  CORNER  OF  THE  SEAT  PAN  TO  THE  CENTER  OF  THE  006320 

C  KNEE  CIRCLE!  006340 

OISTaSQRK (SX2-X2) ••2* <SY2-Y2> ••2)  006360 

IF  (OIST  cGT.  R2)  GO  TO  120  006380 

C  OMIT  TANGENT  LINE  FOR  OIST  <  R2— — SEAT  PAN  POINT  IS  WITHIN  THE  006403 

C  RADIUS  OF  THE  KNEE  CIRCLE!  006420 

HRITE(6i2300)  0IST,R2  336440 

GO  TO  150  006460 

C  ALP  IS  THE  SLOPE  OF  THE  LINE  FROM  THE  CENTER  OF  THE  KNEE  CIRCLE  TO  006480 

C  THE  SEAT  PAN  POINT!  006500 

120  ALP=ATAN((SY2-Y2J/(SX2-X2) )  006520 

C  COMPUTE  GAMMA  USING  THE  TWO  KNOWN  SIDES  OF  THE  TRIANGLE!  006540 

GAM3AC0S(R2/0IST)  006560 

C  COMPUTE  'PHI*  — -  angle  in  new  triangle  required  to  COMPUTE  TANGENT  036580 

C  POINT  XL2tYL2  BELOW!  006600 

PHI«GAM>ALP  006620 

C  COMPUTE  X  AND  Y  COORDINATES  OF  TANGENT  POINT  ON  THE  KNEE  CIRCLE!  006640 

XL2sX24P2*C0S(PHl)  036660 

YL2«Y2-R2*SIM<PHH  006680 

C  DRAW  THE  TANGENT  LINES  FROM  THE  HIP  CIRCLE  TO  THE  CORNER  OF  THE  SEAT  036730 

C  PAN  TO  THE  KNEE  CIRCLE!  006720 

CALL  PL0r(SX2,SY2,2l  006740 

WRITE(6>24uOI  SLOPE.rC, SY2, OIST, ALP, GAM, XL2.TL2  306760 

GO  TO  60  006780 

150  call  pL0T<SX2,SY2,2)  006803 

2100  FORMAT!*  UPPER  AND  LOWER  TANGENT  POINTS  FOR  THE  •,A10,A8,*  CIRCLE  "06820 
lAREl*/<liX,8Flfl.3) )  006840 

2310  FORMAT!*  THE  DISTANCE  FROM  THE  CORNER  OF  THE  SEAT  PAN  TO  THE  CENTE00686B 
IR  OF  THE  knee  circle  ■•,F8.3,*  THE  KNEE  RADIUS  =*,F8.  3)  006880 

24K  FORMAT!*  SLOPE,  TC,  SY2,  OIST,  AlP,  GAM,  XL2,  YL2  FROM  THE  CORNER  006900 

1  OF  The  SEAT  PAN  TO  KNEE  CIRCLE  TANGENT  POINT  COMPUTATIONS !*/  006920 

2  11X,8F10.3)  006940 

RETURN  006960 

END  006980 
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SU3R0UTINE  INPTtIP) 

dimension  BAF (10) , XI (7)  ,Y1 (7)  ,X2(7)  ,Y2(7> ,CAL 1 16) 

COMMON  X(16)  ,XS8tXLB,Y  (16)  ,Y  SB  ,  YL  Bt «  <  7)  .  ANG,  SX2  ,  SY2, 1 TM 

This  subroutine  reads  all  input  data  except  the  'title*  card, 
computes  all  conversion  factors  (COUNTS  TO  INCHES),  AnO 
calibrates  all  data. 

THE  DATA  POINT  SEQUENCE  ISI 
INDEX  PARAMETER 

1  HIP 

2  KNEE 

3  ankle 

<*  SHOULDER 

5  ELBOW 

6  WRIST 

7  TRAGEON 

3  NOSE 

9  HARNESS  buckle 

ij-16  shoulder  harness 

DATA  RAD/57.2957795/ 

C  READ  ANO  WRITE  ALL  TEST  PARAMETER  INPUT  DATA? 

c  all  parameter  symbols  should  be  defined  in  The  write-up  describing 
c  The  format  of  the  input  oataj 

READ  (5,1000)  aPS,0SC,DPF,0SF,XSa,YS8,XL3, YLB, XASSF,YASSF 
WRITE (6, 3010) 0PS,0SC,0PF,0SF,XS8,TS8,XL3,YLa,XASSF,YASSF 
R£AQ(5,1000)  SAF 
HRITE(6,3a20)  3AF 

READ (5, 1000)  xpf,ypf,xpa,ypa,xsf,ysf,xsa,ysa 
write (6, 3030) xpf,tpf,xpa,ypa,xsf,tsf,xsa,tsa 
READ  (5, 1100)  (XKI),  Yl(I)  ,X2(I)  ,Y2(I),Is2,&> 

WRITE  (6, 3040)  (Xl(I),  YKl)  ,X2<I)  ,T2(I)  ,Ip2,6> 

RE»O<5,l'J00)  TX,TY,£X,EY 
WRITE (6, 3050) TX,TY,EX,£Y 
C  COMPUTE  PANEL  ANO  SEAT  CONVERSION  FACTORS! 

?CAL=SQRT ( (XPF-XPA) ••2+( YPF- YPA ) ••2) /OPF 
SCAL=SQRT( (XSF-XSA) ••2+( YSF- YSA)»»2)/OSF 
C  COMPUTE  DISTANCE  FROM  THE  FOCAL  POINT  TO  THE  SEAT  (SS)J 
SS  =  ( OPS • OS  F ) / ( OPF- ( S  CA  L/PC  AL ) •CPF ) 

WRITE(6,3060)  PCAL,SCAL,SS 

C  COMPUTE  The  angle  the  TRAGEON  -  NOSE  LINE  MAKES  WITH  THE  I-AXIS 
C  THROUGH  THE  HEAD! 

DX3TX-EX 

OY=TY-EY 

AN6sArAN(A8S(aX/0Y)) 

C  COMPUTE  REMAINING  CONVERSION  FACTORS! 

DO  100  131,10 

IJO  CAL(I)=SS*SCAL/<SS*0SC-BAF (I )/2.0) 

DO  11b  1313,16 
111)  CAL(  I)3CAL  (10) 

OCAL=CAL  (13)-CAL  (9) 

C  COMPUTE  RADII  OF  ALL  900Y  ELEMENTS  EXCEPT  THE  HEAD  ANO  THE  MiPl 
DO  150  132,6 

150  R(I)  =SQRT  (  (X2  (D-XKI)  )  ••  2 ♦(  T2  (I ) -Y1  (1)  )«»2)  /  (  2.0*CAl  (I )  ) 

ENTRY  CALI3 

C  READ  photo  3ATA  FOP  EACH  TIME  SET! 

REAO(5,1200)  ITM 


007005 

007020 

007040 

007060 

007050 

307100 

007120 

C07i!,a 

007160 

007150 

oa72ba 

007220 

007240 

007260 

007230 

007300 

007320 

007340 

007360 

307330 

007400 

007429 

007440 

007460 

007430 

007500 

007520 

007540 

307560 

007530 

0076C9 

007620 

007640 

007660 

007630 

007700 

007720 

007740 

037760 

007780 

007800 

007820 

007840 

007860 

007830 

007930 

007920 

007940 

007960 

007980 

308000 

008020 

008040 

008060 

008030 
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WRITE(6,aiQD)  ITM  008100 

REAO<5,liaO)  XSFF,YSFF,XSAF,YSAF,(X(I» ,T(I) ,1=1,16)  008120 

WRITE (6, 3100)  XSFF, YSFF,XSAF,TSAF, (X < I) , Y ( I ) , I =1 , 16 )  0081^0 

C  OOfPUTE  CALIB  factors  FOR  3  SHOULDER  STRAP  POINTS  WITHOUT  FIOUCIALSI  008160 
Yqu=Y(g)  008130 

YFCT=OCAL/ (Y( 13) -Y9U)  008200 

cal (10) =CAL(g) *YFCT» (Y (10)-Ygu>  008220 

CAl<11)  =CALI9)  ♦YFCT*<Y<11)-YBU)  00821.0 

cal  (12)  =CAL  (9)  .YFCT*  (t  (12)  -YBU)  00  8260 

WRITE(6,22aC)  cal  008230 

C  calibrate  all  data  for  I-TH  FRAHEt  008300 

XSAF=XSAF/SCAL  008320 

YSAF  =  YSAF/SCAL  a083<.0 

XF=XASSF-XSAF  008360 

YF=YASSF-YSAF  008350 

00  200  1=1,16  OOSwOO 

X(  t)  =X(r) /CAL  (  I)  *XF  008420 

230  Y(I)=Y(I)/CAL(I)*YF  048440 

IF  (IP  .GT.  0)  RETURN  008460 

C  CONFUTE  RADII  OF  HIP  ANO  HEAD  (FOP  0  FRAHE  ONLY) I  008480 

XHRa0.23076923»Y(7)-l. 0190769  008500 

R(7) =(XHR-X(7) ) •cost  12. 6667/RAO)  0  0852  0 

YSP=-Q.12634*X(1)  008540 

R(l) »(Y(1)-YSP)»C0S(7. 25/RAa)  008560 

RETURN  008580 

1030  FORHAT(5X,10F7.0)  008600 

llflO  FORHAT(5X,«F7.0)  008620 

1200  F0RHAT(5X,A3)  008640 

2130  F0RHAT(*1ITH=»,A3,*  HSCC;  INPUT  DATA  FOR  THIS  TINE  FRAHE  ARE)*/)  008660 

2230  FORNAT(»  CALIBRATION  DATA  FOR  THIS  TINE  FRAHE  ARE)*/  308680 

1  (llX,SFia.3) )  008700 

3010  FORHAT(*OOPS  6TC.**,10F10.3)  008720 

3020  FORHAT<»  BAF  ETC. »• ,10F10 .3 )  008740 

5030  FORHATl*  XPF  ETC. =• ,1 OFiO.3)  008760 

3040  FORMAT(*  XI  ETC. *• ,8F10. V ( IIX, 8F10. 3) )  008730 

3050  FORHAT(*  TX  ETC.  =♦  ,4F10.  3)  008800 

3060  F0RHAT(»  "CAL  ETC.**  ,3F10. 3)  008820 

3130  FORMAT(»OXSFF  ETC. =• ,8F10. 3/ I 11 X, 8F10. 3) )  008840 

END  008860 
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susacuTise  intrpl  (l,  x,  y.n.u,  v) 
interpolation  of  a  SINGl.£-\/ALUEa  FUNCTION 

TAKEN  '■^ON  communications  OF  ACM,  OCTOBER  1972  ,  VOL  l5,  NUMBER  12. 
algorithm  number  <.33. 

REPRINT  privilege  GRANTED  BT  PERMISSION  OF  Tm£  ASSOCIATION  FOR 

computing  machinery. 

ms  SUBROUTINE  INTERPOLATES,  FROM  VALUES  OF  THE  FUNCTION 
GIVEN  AS  ORDINATES  OF  INPUT  DATA  POINTS  IN  AN  X-Y  PLANE 
AND  FOR  A  GIVEN  SET  OF  X  VALUES  (ABSCISSAS),  THE  VALUES  OF 
A  SINGLE-VALUED  FUNCTION  Y=Y(X). 


c  the  input  parameters  are 

C 

C  L  =  NUMBER  OF  INPUT  DATA  POINTS(MUST  BE  2  OR  GREATER) 

0  X  =  array  of  dimension  L  STORING  THE  X  VALUES ( ABSCISSAS )  OF  INPUT 

C  DATA  POINTS  (IN  ASCENDING  ORDER) 

D  Y  =  ARRAY  OF  DIMENSION  L  STORING  THE  Y  VALUES ( ORDINA TES )  OF  INPUT 

C  DATA  POINTS 

C  N  =  number  of  points  at  which  INTERPOLATION  OF  THE  Y  VALUE 
C  (ORDINATE)  IS  DESIRED  (MUST  BE  1  OR  GREATER) 

C  U  »  ARRAY  OF  DIMENSION  N  STORING  THE  X  VALUES  (ABSCISSAS)  OF 

C  OESIHEO  POINTS 

c 

C  the  OUTPUT  parameter  IS 

c 

0  V  »  ARRAY  OF  DIMENSION  N  WHERE  THE  INTERPOLArEO  Y  VALUES 

C  (ORDINATES)  are  TO  BE  DISPLAYED 

W 

C  DECLARATION  STATEMENTS 
C 

DIMENSION  X(L)  ,Y(L),U(N)  ,V<N) 

EDUI valence  (P3,X3) , (Q0,T3), (Q1,T3) 
real  Ml, m2, M3, mm, M5 

equivalence  (UK,DX) , <IMN,X2,A1,M1) , (IMX, X5 ,A5 , MS) , 

1  (  J,SW,SA)  ,  (Y2,H2,M<,,a2)  ,  (Y5,H3,Q3) 

C 

C  PRELIMINARY  PROCESSING 

13  LC=L 

LMlsLQ-1 

LM2=LMl-l 

LPlaLO*! 

Nn=N 

IF(LM2  .LT.  3)  GO  TO  90 
IF  (NO  .L£.  0)  GO  TO  91 
DO  11  Ip2,L0 

IF  (X(I-1>-X(I))  ll,95,9B 
ll  CONTINUE 
IPV=0 


C  MAIN  OO-LOOP 


CO  80  K=1,N0 


308880 
008900 
303920 
0089^0 
308960 
308980 
309030 
009320 
339040 
a  09060 
309080 
009100 
309120 
009140 
009160 
009180 
009200 
009220 
009240 
309260 
009280 
339300 
009320 
069340 
009360 
009380 
009400 
009420 
609440 
009460 
009480 
009500 
009520 
309540 
009560 
009580 
009600 
009620 
009640 
009660 
009630 
00970! 
009720 
809740 
009760 
009780 
009800 
009820 
0C964O 
03986! 
009683 
009900 
009920 
0099-0 
339960 
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O  O  O  o  Cl  o  o 


UK=U (K) 


o 

C  ROUTINE  TO  LOCftTE  THE  DESIRED  POINT 

2a  IF(LM2  .EQ.  0)  GO  TO  27 

IF  (UK  .GE.  X(Lai 1  GO  TO  26 
IF(UK  .LT.  X(l))  60  TO  25 

IMNa2 
INX^LO 

21  I=<rHN*INX) /2 
IF  (UK  .GE.  X (I) )  GO  TO  23 

22  IMX=I 
GO  TO  24 

23  IHN»I*1 

24  IF  (IMX  .GT.  IMN)  GO  TO  21 
I=IMX 
GO  TO  30 

25  1=1 
GO  TO  30 

26  I=LP1 
GO  TO  30 

27  1  =  2 

CHECK  IF  IsIPV 

30  IF  (I  .EQ.  IPVl  GO  TO  70 
IP\/»I 

ROUTINES  TO  PICK  UP  NECESS4RY  X  »NO  T  VALUES  AND 
TO  ESTIMATE  THEM  IF  NECESSART 

40  J=I 

IF  (J  .EQ.  IJ  J=2 
IF  (J  .EQ.  LPl)  JsLO 
X3  =  X(J-1) 

Y3  =  T  (J-1) 

X4=X  (J) 

T4=Y(J» 

A3=X4-X3 
M3  =  (T4- Y3T/A3 
IF  (LM2  .EQ.  3)  GO  TO  43 
IF  <J  .EQ.  Z)  GO  TO  41 
X2*x  (j-2) 

TZsY  (J-2) 

A2=X3-X2 
M2=(Y3-Y2)/A2 
IF  (J  .EQ.  LO)  go  TO  42 
•♦1  X5*X(J»1) 

Y5»Y  (J»l) 

A4=X5-X4 
M4=(  Y5-Y4)  /A4 

IF  (J  .EQ.  2)  MZ»M3*M3-M4 

GO  TO  45 
42  M4=M3+M3-M2 
GO  TO  45 


009983 

310000 

010020 

31004U 

010063 

010083 

010103 

010120 

310140 

010160 

010180 

010200 

010220 

310240 

310260 

010280 

310300 

010323 

010340 

010360 

010380 

310400 

010420 

010440 

010460 

010480 

010500 

010520 

310540 

910560 

010580 

013600 

010620 

010640 

010660 

010680 

010700 

010720 

010740 

119760 

013780 

010800 

019020 

010840 

310860 

010880 

013900 

019920 

910940 

019960 

010980 

OllOOC 

011020 

011040 

011069 
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o  o  Cl  c>  n  o 


1*3  MZ’s’iS 

011060 

tl4»M3 

911110 

45  IF  (J  .LE.  3>  GO  TO  46 

011128 

AlsXZ-X  U-3) 

011140 

Hl®tTZ-T<  J-31  )/AI 

011160 

GO  TO  4? 

011160 

46  Ht=H2»H2-ll3 

911200 

47  IF  IJ  .C£.  LHl)  GO  TO  46 

011220 

A5a*  (J42I-X5 

311240 

HS^T  ( J»2)»T5>  /AS 

011260 

GO  TO  5C 

011260 

*6  M5*M44«4-M3 

311300 

311320 

NUMERICAL  OIFFERENTIATION 

011340 

011360 

50  IF  (I  ,ea.  LPl)  GO  TO  52 

011360 

HZsABS  (M4-M3) 

011400 

N3»A  aS<M2-Ml) 

011420 

SM»M24N3 

011440 

IF  (SM  .NE.  O.a)  GO  TO  5t 

011460 

H220.5 

011460 

N3«0.5 

011500 

SH*1.0 

011520 

51  T3=<H2*M24M3*M31 /SH 

311540 

IF  (I  .£0.  11  GO  TO  54 

011560 

52  M33AeS(MS>n4) 

911650 

M4sAeS(M3-M2) 

011600 

SH«N34H4 

011620 

IF  (SN  .NE.  a.0»  GO  TO  53 

011640 

N3aa.5 

011660 

N4aa.5 

01166D 

SM*l.fi 

011700 

33  T4»<«3»MI«.H4*M4)/SN 

011723 

IF  <I  .N£.  LPl)  GO  TO  60 

011740 

T3»T4 

J11760 

SA=A2*A3 

011760 

T4=fl  .5*  <M44M5-A2*  <  A2-A3) '  <  M2»M3>  7  tS  A*SA)  ) 

011690 

X33X4 

011823 

Y3aT4 

011640 

A3aA2 

911660 

M3«M4 

oiiaao 

GO  TO  6C 

011900 

54  T4«T3 

011420 

SA3A34A4 

011940 

T3»<J.5*»M14M2-A4»<A3-A4)*<)W-M4»  F1SA4SA1  1 

011960 

X3>X3->A4 

011960 

Y3»y3-M2*A4 

012000 

A3«A4 

012020 

M3«M2 

012040 

012060 

determination  OF  THE  COEFFICIENTS 

012060 

012100 

60  Q2*<2.0*<N3-T3l4H3-T4) /A3 

012120 

03»<-M3*N34T34T4)  /  tA3*63) 

012140 

012160 
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C0MPUT4TI0N  OF  THE  POCYNOHIAL  0121S0 

012200 

70  OX«UK-PO  012220 

aO  V(K) =Q0*O*»(Ql*OX»<Q2+OX*Q3) )  012240 

RETURN  312260 

0122S0 

ERROR  EXIT  J12330 

012320 

90  WRITE  (6,2090)  012340 

GO  TO  99  012360 

91  WRITE  (6,2091)  012360 

GO  TO  99  012430 

95  WRITE  (6,2095)  012420 

GO  TO  97  012440 

96  WRITE  (6,2096)  012460 

97  WRITE  (6,2097)  I,X(I)  012460 

99  WRITE  (6,2099)  L0,N0  012500 

RETURN  012520 

012540 

FORMAT  STATEMENTS  012560 

012560 

2090  format  (IX/22H  •••  L  «  1  OR  LESS./)  012600 

2091  FORMAT  (1X/22H  •••  N  a  0  OR  LESS./)  012620 

2095  format  (1X/27H  •••  IDENTICAL  X  VALUES./)  012640 

2096  F0RMAT(1X/33H  •••  X  VALUES  OUT  OF  SEOUENCE./)  012660 

2097  FORMAT  (6H  I  a ,  17, 10 X, 6H X(  I)  a,E12.3)  012680 

2099  format  (6H  L  »,I7,10X,3HN  a,I7/36H  ERROR  DETECTED  IN  ROUTINE  012730 

lINTRPL)  012720 

END  012740 
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APPENDIX  D 
PROGRAM  CHIFPD 
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oooooooooooooo 


PROGRAM  CHIFPO ( INPUT .OUTPUT, T APESat NPUT, T APE6>OUTPUT ) 


PROGRAM  'CHIFPO*  CALIBRATES  THE  •HIFRO *  PROGRAM  INPUT  DATA. 

the  PROGRAM  COMPUTES  THE  FOLLOMING  FOR  EACH  (X,Z)  DATA  POINT  I 
<1)  MAGNITUOE  R=SQRT<X»»2*Z*»2)  — ->  R  IN  COUNTS 

(2)  ANGLE  ALPHA«R/(13a.68AAlS9*S7.2SS77951>  — >  ALPHA  IN  RADIANS 
<3>  ADJUSTED  RaRAaR/COS(ALPHA>  — »  RA  IN  COUNTS 
<l»»  ADJUSTED  XaXA*X»RA/R  -~>  XA  IN  COUNTS 
IS)  ADJUSTED  ZaZAaZ*RA/R  — >  ZA  IN  COUNTS 

DATA  ARE  READ  AND  PRINTED  IN  THE  STANDARD  *HIFPO*  PROGRAM  FORMAT. 

DIMENSION  XIL)  tZIL)  ,XA(L)  fZA  (4) 

DATA  RA0/S7.29577991/, CON/138. 6448159/ 

FCT*COM»RAO 

10  REAO(9,1000I  FI, <XIII,ZiI) ,Ial,4> 

IF  (EOF (5) I  999,20 
20  DO  100  Ial,4 

ftaSQRTIX(I)a»24Z(I)**2) 

ALPHaR/FCT 
ClaCOSI  ALPH) 

XA(I)aX<I)/Cl 
ZA(I)aZ(It/Cl 
100  CONTINUE 

MRITE(6,1000>  Ft, (XAII) ,ZA(I) ,Ial,4> 

CO  TO  10 
999  STOP 

1010  FORMAT! AS, 8F7.0) 

END 
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'■'U.S. Government  Printing  Office;  1981  757-002/422 


000100 

000120 

000140 

000160 

000180 

000200 

000220 

000240 

000260 

000280 

000300 

000320 

000340 

000360 

000380 

000400 

000420 

000440 

000460 

000480 

008500 

000520 

000540 

000560 

000580 

000600 

000620 

000640 

000660 

000660 

000700 

000720 


